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PURPOSE of the ARCADIAN is to disseminate material having to do with the 
Bally/AstroVision Arcade game/computer. The underlying reason for the paper 
is to help all understand hew and why the machine operates the way it does. 
We can then make it operate the way we want it to, and we can expand its 
usefulness.. 

A HISTORY^ STATEMENT is getting to be a tradition - a few words for those who 
start their subscription with Volume III: When the Chicago mail order .house 
of JS&A advertised the Bally in the popular magazines in Sept 1977, a number 
of us bought into it. Lots of promises, but delivery was poor, both on the 
existing hardware and on the promised stuff. Some never did come. The Tiny 
Easic cartridge did show up about a year later, and I started this paper in 
November, 1978. I got tired of waiting for the Add-On and was about to 
contract for a slightly smaller unit when the Fidelity deal made us take a 
second look. There was no point in trying to compete with the factory, and 
that is still a consideration. Instead, we started to concentrate on small 
Projects (more later). AstroVision took over the consumer products div.of 
Bally in August 1980, and we are now looking to them for continued support. 

USSR GROUP REPORTS are needed - partly to get others in the area to attend, 
and partly for our mutual knowledge. You don't have to submit as polished 
an item as George Moses did -printing is his business^. - we just need 
something that is informative and legible f as: 

Chicago Bally User Group meets 3rd Sunday every month at 

DeVry Technical Institute 3300 N. Campbell Chicago, IL 
contact: Mike Maslowski 312-654-8937 

gHORT PERSONAL NOTE of thanks to those who sent well wishes on our 25th. 
we enjoyed a four-week sojourn to Europe, where we spent three really 
beautiful weeks in Switzerland. One of my other hobby interests is model 
railroading, and the Swiss have a well-ordered system that operates with 
precision and the trip was quite informative to me. We also made 6 lake 
voyages by boat, and climbed the Susten Pass by postal bus to see the 
Alps up close. 

FOEMAT of this paper is rather loose, but I try to include material for 
both the tyro and the expert. Material in the ARCADIAN is subscriber 
generated, so I am looking to you for our continued operation and therefore 
mutual learning. I need programs and tutorials, and at all levels. Programs 
should be sent as a tape, and a listing as well would help for ’.hose times 
when a garble comes through. The programs in the ARCADIAN are listed 
directly from the Bally to a CCMPRINT 912S printer. There is a little 
idiosyncracy in that combination - the printer has no divide sign (neither 
does my typeviriter), and it can't tell the difference between a multiply 
sign or a lower case X, and there is no right arrow, either. So, whenever 
you see a lower case letter, it means: a = right arrow( > ) 

b = multiply ( x ) 
c = divide ( r ) 

ASTROV ISION TAKEOVER The new manufacturer of the Arcade is AstroVision,Inc., 
a Columbus, Ohio firm. The actual production will probably be done at their 
subsidiary, E.F.Johnson, the CB manufacturer. Latest words on plans, etc., 
are in George Moses' report , following... 
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FENTON, MICHIGAN 



BLUE R AM TUTORIALS will again appear in the next issue. I wanted to get the 
interesting news from the Michigan User Group out to all, so I have deferred 
some material to next month. 


Z 


at 6460 Busch Blvd., 
one (614) 885-0130. 




BLUE RAM KEYBOARD OP TION . To clarify my announcement of last month - Should 
you desire a wired and tested unit, ready to plug into the Blue Ramv send me 
89*95* Should you want a kit of the electronic parts, send $24.95 to me, 
and order the keyboard itself from JAMECO. You could use another keyboard 
that you have lying around, which is why we offer it this way, but we know 
it will work with the JAMECO. 
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Brett Bilbrey dis 










<HRCRDIRM 



TUTORIAL MULTI-PROCESSING SYSTEMS 

Definition. A multi-processing system consists of any computer system 
which utilizes two or more processors, such as the Bally and the TRS-80, 
bath using the Z80; or the new Microsoft Z80 that fits into the Apnle (6502). 
with two different processors. 

Discussion. Project Three will be an interface which allows coupling the— 
Bally system buss to the TRS-80 system buss with buffers, and signals gener- 
ated to be compatible with the TRS-80 expansion module. By utilizing a 4 k 
RAM. block and appropriate WAIT lines, each Z80 CPU can put and take data in 
an intermediate location, thus allowing maximum speed and minimum programming. 

Application. By using the correct software, we may use the TRS-80 
keyboard to produce desired signals for the Bally to read, i.e., an intel¬ 
ligent keyboard. We may also display the Bally memory on the TRS-80 monitor, 
"■his requires that machine language be loaded into the Bally, to allow it to 
read the external RAM and write to it. By using the TRS-80's extensive trig 
routines in Level II Basic, we can plot multi-color graphics on the Bally 
display with complex formulae. If machine language routines are used, then 
screen memory is not needed and so four colors may be displayed, and POKEd 
for high speed display animation. By using the Bally's A to D conversion 
system, the TRS-80 may run game programs which require 'paddle' input. The 
TRS can read data from the Bally to send to a parallel printer. The disc 
capability of the TRS expansion unit may be utilized. And more... 

All of the.above are practical, but the system has yet to be tested. 

Comments, ideas, help, etc., are solicited, and a stamped envelope would 
be appreciated. Contact Rich Tietjens,1008 Trinity, #B, Seaside, CA 93955 

FILE SEARCH It is possible to have the Bailly look for a specific program 
on tape and load only that program when it gets to it. Programs of any 
kind on a tape or disc are usually called "files" in big machine-talk, 
and are either titled or numbered. On the Apple, for example, you can 
call a file "gecrge" and ask the computer to "RUN GEORGE" from disc, and 
it will search for george, load it, and then run it. On the Tektronics, 
it would be numbered, and you'd enter "FIND 6/LOAD/RUN" to do the same 
thing. Well, in studying the Tiny Basic listing, A1 Rathmell found that the 
Arcade will do the same thing. His report follows: 

’ To ® ake us f of the fil e finding capability of Basic, a file number 
must.be written.on tape when the file is created. The number is a 
16 bit (two 8-bit bytes) integer, and can have any value from -32768 
to + 32767, but for simplicity, if the high order byte (the first 
one) is always zero, then file numbers from 0 to 255 cah be written 
in the low order byte. The two file number bytes are written in the 
proper format using the TV instruction. For example, to write a 
program on tape as file number 10, use the following command: 

:PRINT;TV=0;TV=10;LIST 

The first TV instruction writes the high order byte (zero), and the 
second TV instruction writes the low order byte (ten). To read file 
number 10 into the Bally, use the following command: 

:INPUT 10 

The file finding system also works with the :LIST and :RUN commands. 
Using the file numbering capability of ally Basic adds a professional 
touch to tape file management!" 

ADS on the back page are free. Please make them legible. In providing this 
service I am also providing no guarantees and take no responsibility at all. 
Half-page and up ads are not free, contact me for data. 
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;BC=6S;FC=197 
-,c,OR b 


0;R=63 


5 .SPEED 0 MATH 
B .BY BOB WISEMAN 
10 :RETURN ;CLEAR 
20 PRINT 'ENTER + 

30 Q=KP;S=0 

40 CLEAR ;FOR N=1T0 10; T= 

50 GOSUB 100;GOSUB 400 
G0 CX=-35;CY=35;S-S+T 
70 PRINT ■SCORE=',*4,S 
75 NEXT N 
60 GOTO 20 

100 X=RND C9);Y~RND (9) 

105 IF Q=43Z=X+Y;GOTO 200 
110 IF Q=S8Z=XbY;GOTO 200 
115 IF Q=45W=X+Y 
120 IF Q=99W=XbY 
125 Z=X;X-W 

200 A=20180;B=A;C=300;E=2 
210 D=-43;GOSUB C 
215 D=53;GOSUB C 
220 D-19521;GOSUB C 
225 D=20190;GOSUB C 

230 D=-13871;GOSUB C 

231 IF R=63L=X;M=Y;0=Z 

232 IF R<63X=L;Y=M;Z=0 

233 E=1;D=32;GOSUB C 
235 E=1;IF X>9D=48+Xcl0 
240 D=48+X; GCfSUB C 
245 D-32;GOSUB C 

250 D=Q;GOSUB C 
255 D=32;GOSUB C 
260 D=R;GOSUB C 
265 D=32;GOSUB C 
270 D=61;GOSUB C 

280 IF Z>9D=48+Zc10;Z=RM;GOSUB C 

285 D=48+Z;GOSUB C 

286 IF L<10IF 0<10D=32:GOSUB C 
290 D=0;GOSUB C;CALLB;RETURN 
300 /£( A )=D; A-A+E; RETURN 

480 I=&(23);J=&(22);K=&(21);T=T+1 

410 IF I+J+K=0GOTO 400 

411 R=0;X-0 

415 W=I;GOSUB 430 

420 W=J;GOSUB 430 

425 W=K;GOSUB 430;GOTO 460 

430 IF W=8X=1 

435 IF W=4X=4 

440 IF W=2X*7 


Bob Wiseman 

118 St. Andrews Dr. 

Cincinnati, OH 4^245 


[445 IF W X=X+R 
1450 R=R+l;RETURN 

1480 R=Y+48;U=X;GOSUB 200;NT=0;&C16)=75;&C22)=-l 

465 IF M=UGOTO 500 

470 T=T+300;FOR I=55T0 255STEP 5 

475 &(18)=I;&C17)=Ic2;NEXT I 

480 GOTO 580 

500 FOR I=200TO 1STEP -5 
505 &(18)=I;&(17)»Ic2;NEXT I 
580 T=200-T; NT*2; &C 17 )=0; &(. 18 )=0 
595 RETURN 


This Math drill program uses 
the giant letter routine. 


=RM;GOSUB C 


Instructions,etc. 
on p. 7: 

Horse #4 


for HORSE RACE, 



Each player uses his hand controller 
to choose the horse he wants to bet 
upon and the size of his bet. To 
choose the horse, first move the knob 
to one of the four positions (see 
diagram) and then pull trigger. To 
place a bet, move the knob forward 
to increase the amount by $5. move 
it back to decrease by $5* Set the 
bet with the trigger. 


BSR X-10 CONTROL can now be placed under Bally control. Our latest device 
will operate the BSR transmitter box (if it is the type that accepts 
'remote control') through the Blue Ram. Fully assembled with documentation 
and-, a demo program, it operates wireless up to 15' from the BSR box. The 
price is $ 19 * 95 . 
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OF PLAYERS?"H 
H;@CI )=A 


1 . HORSE RACE * 

2 .BY HOWARD BRECHEISEN 

3 CLEAR ;BC=179;INPUT ”# 

4 CLEAR ;A=500;FOR I=1T0 

5 NEXT I 

9 CLEAR ; BC=18;FC=14 

10 NT=0;&CS )=175 

11 LINE -12,-44,4;LINE -12,43,1 

12 CX=-76;CY=30 

13 PRINT "HORSE ODDS 

14 Z=10;FOR I=1T0 4 

15 CY=Z;@C1+8 )=RND (5) + l;@C1+12 )=0 
IS PRINT "#",*2,I,#5,@C1+8),"Jl" 

17 Z=Z-15;NEXT I 

18 CX=-6;CY=30 

19 PRINT "PL POT BET HR 

20 CX=-G;CY=20;PRINT 

21 Z=10 

22 FOR I=1T0 H 

23 CX=-5;CY=Z 

24 PRINT #1,I,#5,@CI) 

25 Z=Z-15;NEXT I 
• 27 GOSUB 252 

35 NT=3;Z=10 
3G FOR I=1T0 H 

37 CY=Z;CX=68;PRINT ♦ l.Sc'i + l^i 

38 IF TR(I)GOTO 44 

39 IF JYC D-1@C 1+12 >-l 

40 IF JXCI )=1@(1+12)=2 

41 IF JY(I)=-l@C1+12)=3 

42 IF JXCI )=-l@CI+12)=4 

43 GOTO 37 

44 Z=Z-15;NEXT I 

50 B=0;Z=10 

51 FOR I=1T0 H 

52 CY=Z;CX=42;PRINT #1,B 

53 IF TRCIJGOTO 57 



500 BOX X,Y,B,4,J 

501 LINE X+5,Y+3,L 

502 BOX X+S,Y+4,3,2,J 

503 BOX X+G,Y+4,1,1,K 

504 LINE X-6,Y-4,J 

505 LINE X-7,Y+l,L 
1506 LINE X-4,Y+l,J 

507 LINE X+5,Y-4,J;RETURN 


54 IF JYCI)=lB=B+5;GOTO 52 

55 IF JYCI)=-lB=B-5;GOTO 52 
5G GOTO. 52 

57 @C1+4 )=B;B=0;@CI )=@CI )-@C1+4 ) 

58 Z=Z-15;NEXT I 
G9 GOSUB 252 

70 CLEAR 

71 &C9)=42 

72 BC=89;FC=G 


113 IF D>53IF D>EIF D>FIF D>G P=1;Q=@C9);GOTO 150 

114 IF E>53IF E>DIF E>FIF E>G P=2;Q=@C10);GOTO 151 

115 IF F>53IF F>DIF F>EIF F>G P=3;Q=@C11);GOTO 152 

US' IF" G>53IF G>DIF G>EIF G>F P=4; Q=@C 12 ); GOTO 153 

118 J=2 

119 FOR I-1TO 4 „ 

120 GOSUB 490+1 ^echeisen 

122 NEXT i '> 1017 Macklyn Lane 

Bartlesville, OK 74003 

130 j-i 

131 D=D+RND C14)+C G-@C 9 ) ) 

132 E=E+RND C14)+CG-@C10 ) ) 

133 F=F+RND C14)+CG-@CIT ) ) 

134 G=G+RND C14 )+CG-@C12) ) 

135 Z=25;G0T0 108 

150 CX=-20;CY=25;PRINT "WINNER";GOTO 1G0 

151 CX=-20;CY=9;PRINT "WINNER";GOTO 1G0 

152 CX=-20;CY=-10;PRINT "WINNER";GOTO 1G0 

153 CX=-20;CY=-29;PRINT "WINNER";GOTO 1G0 

160 IF @C13)=PG0SUB 201 

161 IF @C14)=PG0SUB 202 

162 IF @C15)=PGOSUB 203 

163 IF »C16 ?«PGOSUB 204 


164 NT=3;GOSUB 252 

165 GOTO 9 

201 @C1)=@C1)+@C 5) + C @C 5)bQ);RETURN 

202 @C 2)=@C2)+@C 6)+C @C 6)bQ);RETURN 

203 @C 3 )=@C 3)+@C 7) + C@C 7)bQ);RETURN 

204 @(4)=<j>C4)+eC8)+C @C8 )bQ ) ; RETURN 


73 BOX 0,0,158,72,3;B0X 0,0,155,70,3 

74 LINE 60,34,4;LINE 60,-35,3 

75 LINE 59,-17,4;LINE -77,-17,3 

76 LINE -77,1,4;LINE 59,1,3;LINE 59,18,4;LINE -77,18,3j 

77 NT=0;CX=40;CY=40 

78 PRINT "FINISH 

79 NT=3 

107 Z=25;D=-50;E=-50;F=-50;G=-50;J=1;K=2;L : 

108 FOR I=1T0 4 

109 CX=-70;CY=Z 

110 PRINT "#",#1,I;GOSUB 490+1 

112 Z=Z-17;NEXT I_ __ 


252 FOR A=1T0 1000;NEXT A 

253 RETURN 

491 X=D;Y=25;GOTO 500 

492 X=E;Y=9;GOTO 500 

493 X=F;Y=-10;GOTO 500 

494 X=G;Y=-29;GOTO 500 



(olon Organ)Light Show: Interface Bally, to any stereo amp, 
Ky//ivilk audio power of 1 wail on. up. Will not ef^ecl stereo quality 
yy TV display* in step with, youn stereo mimic. 

/ Complete interface unit with, cassette demon*tnatlon program and 
f instructions 

Add youn sun favorite A/ut/tjraphic* , (T(, 

11 gpmes now available - All have full memo/iy useage, lot* of graphics, 
action and colon - any two (2/ programs on cassette, with 
docjjmemtation $10,00 

I he Clurnmy r s T/ieasune 
Ain Raia 

Ayatollah Bant Board 
rescue Ain Dnop 
Target (Trio of Games) 

Kill the Vulcan 
Sink the U-Boat 
Seanch <£ Destroy 
Stan Base 2000 
The Black Lagpon 
Mission Impossible 
Bombandien 
(hazy Ball 
Space Quest 2001 


FOR FR &f (ATALOg \mT£: 


5 flin,(a**ett* $1,ss ea 


lo /"V\ SOFTWARE 
6vAA\ 8599 FRAMEWOOP. Dt 



iViyjj: 


mamn\ 


MlIKiMMO] 


HO E. North St., Brighton, mi 48116 
(313) 227-1575 






ADS 


o FOR SALE Bally Arcade with Basic, Interface, 2 controllers, CLOWNS/BRICK¬ 
YARD, PANZER,BASEEALL,280 ZZAP, MATH. Coaxial or regular output, loads of 
documentation including all Arcadian newsletters. Works fine,seldom used. 

$175, Jay Hess, 52 Eaglehaven Ct. San Jose, CA 95111• 408-227-8477 
o FOR SALE Complete Bally Arcade, includes 4 hand controls, BASIC,Interface, 
BASEBALL,CLOWNS,SEA WOLF, Manuals, Also line filter and custom carrying 
case. $300 or offer. Mark Stradinger, 331 Grove St. Fort Atkinson, WI 
53538 414-563-3452 

o SUPER SOFTWARE by Rob Rosenhouse has expanded its line of software into 
5 cassettes which include 2 programs each. Listings also available.Free 
RND (ART) program and descriptions for SAE, to Rob Rosenhouse, 44 Forestbrook 
Dr., North Plainfield, NJ 07060 

o W & W Software Sales,6594 Swartout Rd. Algonac, MI 48001. We have 9 tapes 
with 5 programs each, with or without listings. Or get listings only so you 
can pick and choose any of the 45 available programs. Excellent variety, 
color, graphics, use of hand controller, and much more. Games, business 
programs, and teaching aides for children and adults. Send 25^ for more 
information and a copy of Air Traffic Controller, or SAE for information only. 

BALLY APPLICATIONS SOFTWARE AND HARDWARE SOURCEBOOK 

A Sourcebook of software programs and hardware Items Is In the process 
of being prepared. It will follow the general format of the TRS-80 and ATARI 
Sourcebooks but will also Include hardware Items for the BALLY as well. 

The Sourcebook should be ready for distribution by November clst. 

If you want to purchase a Sourcebook, please send a check for $2.50 
to Richard M. Houser 
635 Los Alamos Ave. 

Livermore, CA 94550 

Quantity discounts will be available. (10 or more copies to one address.) 

If you are a source of software programs and/or hardware Items pl»ase 
contact Richard Houser at (415) 447-0493 between 4:30 and 9:00 PM PST for 
further Information on how to get Included in the Sourcebook. 


o DUNGEONS and DRAGONS program package: Eight programs plus a search routine 
combine to generate characters, personalities, a random dungeon, the rolls 
of dice, etc. $8 postpaid on quality tape. R. Tietjens, 1008 Trinity #B, 
Seaside, CA 93955 


NEXT ISSUE will contain some explanations of the ratings scheme and 
discuss the statut of the other Projects. And we'll have some late word 
on the modem attachment to the Blue Ram. 


IO 


ARCADIAN 

Robert Fabris, relaxed 
3626 Morrie Dr. 

San Jose, CA 95127 
The Source TCD 959 
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Volume J No.2 


OH/OFF SWITCH as a possible source of computer problems has been identified 
by a subscriber. The spring-loaded contacts may corrode and have momentary 
failures. The real solution is to solder across the contacts and disconnect 
the unit at the wait plug. You should be aware that there is always current 

in the unit as long as the wall transformer is connected. The switch only 

shuts off part of the continuity. 

CONTROLLER PROBLEMS . A number of subscribers have indicated problems with 
the hand controllers, especially in slots 3 and 4. If it is a problem only 
with the ports, then probably the i/O chip has a failure. Controller 

problems can usually be helped by cleaning. We have not been able to locate 

any controller source other than the list price outlets such as M.Wards. 

CLUB NEWS The Chicago Area Group (p.1 for address) is starting a software 
library for their members. 

RF MODULATOR is a gadget needed to convert the output of the Bally into a 
form usable by the TV set. One is included with your machine, it sits in the 
lower left corner and the shielded line going to your TV set originates there. 
Those of you who have purchased spare boards need one to get a visual display 
of what's going on inside the machine. Those I had last year are all gone, but 
I see the latest Poly Paks catalog has them for 17.95. part no. 92CU6527. 

The illustration appear s to be identical to the Bally unit. 

R4LCHEK There is a very small interest by subscribers for the Balcheck tool, 
which requires someone to bum the program into a 2716 chip. If anyone is 
thinking of doing this, let me know. 


GAME ENHANCEMENTS Virtually every program listed can be improved or modified. 
Cne designer has indicated that, for him, once the game has been made to oper¬ 
ate to a sufficient degree of difficulty, the interest in further programmin g 
is lost and he begins to look for a new programming challenge. Now is the time 
for the game player s to take over and revise the game to suit themselves. 


PRINTED MATERIAL - Over the past years, we have located various pieces of 
material that pertain to the Bally Arcade. We have also been fortunate enough 
to have some technical types who have done research into the machine and 
documented their findings. These items are available for the cost of printing 
and postage, and a list with some descriptive material follows: 
o SERVICE MANUAL PA-1 This is a Bally-produced slick cover item subtitled 
"Fun and Brains". It describes the mechanical disassembly of the Arcade box,the 
parts list, the parts layout, and a schematic diagam. I get these in batches 
from Bally, and usually have a stock on hand. Cost is $1. 

o SERVICE MANUAL PA-2 Also Bally-produced, it looks like PA-1 but the cover 
is a dull paper. It contains some not-useful data on the custom chips (clock 


rates and timing diagrams, but not enough/right kind to do the experimenter 
much good.) Also has a schematic. I do not stock this, I'm just listing it 
for the record. 

o EXECUTIVE SOFTWARE In essence, a listing of software that does something 
in the Bally and how to execute it. Tom Wood disassembled the on-board RCM, 
and provides us with his findings. Part of the document lists the RCM subrou¬ 
tines that are executed by an RST 38 H instruction, while the second part 
contains the listings from 0000-1FFF. 27 pages, $2.50 


0 Robert Fabris, 1980 


11 




o HACKER'S GUIDE The Bally software design group made up a report of features 
net documented in the Bally BASIC instruction book. Virtually all of the data 
had been discussed in the first volume of the ARCADIAN before the release of 
this document as we discovered the features by experimentation. 21 pages, $2. 

° MANUAL OF HARDWARE AND SOFTWARE The Bally software design group made up a 
large document explaining a number of subroutines, machine operations, and details 
of the interior workings, (it also contains the specifications of the custom 
chips, same as mentioned in PA-2 above). The second half provides the disassembly 
data for just about everything possible, including expanded on-board games data. 
The material is frustrating in that it occasionally discusses the "commercial" 
mode of operation - high resolution - that is only available with additional 
memory and a better operating system - capability beyond our current capacity. 

A shade over 3 00 pages, $30. 

o BALCHEK A program was developed by the Eally software engineers which 
"locked at" the operation Of the printed circuit board and determined if all was 
well, or if any problems existed. It would then identify the errant area. This 
program was placed into a 2716 chip and a couple of more parts added for a 
readout capability, and all boards would be inspected by this machine. Tern 
Wood ran this through his disassembler and has provided us with the listing, 
to which I have added the instructions. 60+pages, $6.50 
EALLY 

o BALLY BASIC Tom Wood again, this time with the Tiny BASIC cartridge taken 
apart - 63 pages, $6.50 


PROGRAM ENHANCEMENTS occupy a goodly amount of space this issue. They have 
generally resulted from the material printed in Vol.2, pages 101,102, and 
page 4 of this volume. 

o To start with, on p. 101 we described machine code techniques that cause 
a blob to move back and forth on the screen - rapidly - without jerking or 
spoiling the picture also there, as an illustration of Blue Ram usage. Well, 
that clever mid-Westemer, Brett Bilbray, utilized the ideas presented there 
and invented the enclosed program which essentially does the same thing but 
uses Bally BASIC onl<j. This means that those of you who don't have the Blue 
Ram as yet can see this interesting operation. 

o Next, Steve Walters used the identifier scheme mentioned on p. 102 and 
further discussed on p. 4 in conjunction with a no-memory storage scheme to 
get a nic er-appeari ng and more useful program. 

o Dave Ibach explains how to do a few tricks with the tape loading 
schemes he outlines. 

o John Perkins reveals a few more seertes about the Blue Ram memory 
addition, and has some words about using the Blue Ram for BASIC storage. 

PROGRAM REVIEWS We have an on-going scheme to review programs submitted by 
persons wishing to sell them. The reviewers use a form (reduced copy is 
included in this issue), and then send me the summary that is included at the 
bottom of the form. I print the summary plus any other comments. 

USER GROUP is being attempted in the New Jersey area. Contact Rob Rosenhouse 
at 201-755-2289 in the evenings for more data and location/time, etc. The 
group will probably be a part of the Amateur Computer Group of NJ, that 
holds meetings at the Union County Technical Institute. 


I Z 
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PASIC-user interrupt service for Foreground/Background processing, by- 
Brett Eilbray with an assist from Dave Ibach, based on the Blue Ram 
program of page 101. Brett Eilbray 

14430 Barclay 
Dearborn MI 45126 


FOREGROUND - BASIC operating 

BACKGROUND - Machine vector movement and writing 
PROGRAM: 

230 D= 12828; GOSUB C 
240 D=19770; GOSUB C 
250 D=255; GOSUB C 
260 0 = 6151 ; GOSUB C 
270 D=16205; GOSUB C 
280 D= 19768; GOSUB C 
290 D= 19744;GOSUB C 
300 0=61 51 ; GOSUB C 
310 0=589; GOSUB C 
320 D=-7683; GOSUB C 
330 d=-7715; GOSUB C 
340 D=-11807; GOSUB C 
350D= -3647; GOSUB C 
360 d=31725;gosub c 
370 0=19568; GOSUB C 
380 D=-13829; GOSUB C 
390 A=19736 
400 0=14367; GOSUB C 
410 0 = 9293 ; GOSUB C 
420 0=2125; GOSUB C 
430 A=19744 
440 D=-26624; GOSUB C 


10 CLEAR 

20 A=19584;B=A;C=640 
30 0= -9741; GOSUB C 
40 0=1951 8 ;GOSUB C 
50 0=1841 3 ;GOSUB C 
60 0= -8130;GOSUB C 
70 0=3539;GOSUB C 
800= -1063;GOSUB C 
90 D=201 ;GOSUB C 
100 A=19680 
110 0=19683;GOSUB C 
120 A= 19683 
130 0= -20275*. GOSUB C 
140 D=-3296;GOSUB C 
150 0 = 29677 SGOSUE C 
160 D=19568;G0SUB C 
170 0=28721;GOSUB C 
180 D=-2740;GOSUB C 
190 D=-10811 ;GOSUB C 
200 D=-8731 ;GOSUB C 
210 D=-539;GOSUB C 
220 D=-9243;GOSUB C 


450 0=16384; GOSUB C 
460 0=0; GOSUB C 
470 0=2050; GOSUB C 
480 D=-24566; GOSUB C 
490 D=-30685; GOSUB C 
500 D=-21846;GOSUB C 
510 D=-22846; GOSUB C 
520 0=8200; GOSUB C 
530 0= 2080; GOSUB C 
540 0=8200; GOSUB C 
550 0=0; GOSUB C 
560 0=-32735; GOSUB C 
570 0=1280; GOSUB C 
580 0=0; GOSUB C 
590 0=768; GOSUB C 
600 0=5; GOSUB C 
610 D=0; GOSUB C 
620 D=3; GOSUB C 
63 O CALL (B): STOP 
640 $(A)=d; A=A+2; RETURN 


By just inputting the above program, you will be able to use the BASIC 
while at the same time the object (generated by the program) will move 
about the screen^ht a speed controlled by KNob #1 . 

DATAMAX UV-1 Zgrass Universit y Machine " is the. current name for the new 
Eally product mentioned here on p.84 of Vol 2. I understand that Eally 
builds the pieces and Datamax ( 35 O N. Eric Dr. Palatine IL 60067) then 
assembles and markets it. The latest specs include: a Z80 microprocessor; 

16k Screen Buffer RAM; 16 k ROM that includes the ZGrass language; 32 K 
of user development RAM. 2 DC motor controllers (tape machine, movie or 
tv camera,etc*) 2 RS232 output ports for peripherals; disc drive interface; 
audio tape interface; and a card rack, allowing addition of other items. 

All of that plus more at 2495. Add a 13" color monitor at 695. This machine 
has been in development for the past couple of years, with the close 
cooperation of Dr. DeFanti of the University of Illinois who utilizes 
the Bally Arcade in his classes. 

BYTE Magazine , in the November issue, has an article written by Dr. DeFanti 
which I found very interesting as it has a bit about the early history of 
the Bally. 

REVIEWS OF OTHER COMPUTERS are requested from time to time. If you have 
access to one or another of the popular home computers and feel that you could 
write an honest comparison with the Bally, please let me know. This would be 
something to have done by mid-Summer, and I've a few ideas on format so that 
one could make seme reasonable judgements by looking at a chart, table, etc. 
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Blue Ram Programming _ _ _ 

concerning the procedure for actually running programs written 
into the Blue Ram in machine code. Once a program (such as the 
one on page 101 of the ARCADIAN) has been entered into the Blue 
Ram via the Utility, how is it actually made to run? The RUN 
statement is used to run BASIC programs while the CALL statement 
is used to run machine code programs or routines. If the program 
in the Blue Ram was entered beginning at 6000H then a CALL 24576 
will start that program running. Similarly, a program entered at 
6100H can be run by the statement: CALL 24832 GO. The program on 
page 101 was entered beginning at 6000H, so a CALL 24576 GO will 
start it running. Note that the Blue Ram Utility has two means 
within it for running machine code programs: "GOSUB " followed by 
a four digit hexidecimal address will run a machine code program 
beginning at that address. Therefore, after entering the program 
on page 101, enter: GOSUB 6000 and the program will run. A GOSUB 
6C00 will also run a program beginning at 6000H. The primary 
difference between GOSUB 6000 and GOSUB 6C00 is that a more complex 
program can be written and run using the GOSUB 6C00 entry.because 
there is a routine at 6C00 in the Blue Ram (with the Utility 
loaded) that performs some special housekeeping.of the Z80 registers 
to prevent the machine code program from upsetting the BASIC 
environment and clobbering the BASIC program. The GOSUB.xxxx 
entry is a special form accepted by the Utility and it will not 
work from within a BASIC program. To run a machine code program 
from a BASIC program, the CALL nnnnn form must be used. In this 
case, nnnnn is the decimal equivalent of the hexidecimal address. 
24576 is the decimal equivalent of 6000 hexidecimal. There is a 
conversion feature in the Blue Ram Utility that was inadvertantly 
left out of the documentation: The left square-bracket C can be 
entered while the Utility is running, followed by a four digit 
hexidecimal number and the Utility will print the decimal number 
equivalent. If less than four digits are used, press GO following 
the last digit to evoke the printout. This is especially useful 
when writing a machine code program at address 6450,.for example, 
and then wondering how to run it from BASIC. The Utility would 
show C64501 = 25680 meaning that the machine code program at 
6450H can be run by the statement: CALL25680 GO. 

Blue Ram BASIC? Most Blue Ram owners are not adept at machine 
code programming, the major forte of the Blue Ram. Therefore we 
are investigating ways in which BASIC programmers and hackers can 
use the Blue Ram for BASIC program enhancement without having to 
learn any machine code. The Blue Ram owner T s manual describes 
the procedure for using the Blue Ram memory for extended strings 
i.e. the /(nnnnn) statement, however there are two other ways a 
non-machine code programmer can extend a BASIC program. The 
first way consists of loading "service routines" into the Blue 
Ram through the Utility and then CALLing them from within the 
BASIC program. It is not necessary to understand how the service 
routine works, only how to call it. The calling sequence may 
require certain variables to be set up prior to the call and/or 
certain variables may be returned. Another fascinating possibility 
uses routines in the Blue Ram to extend the repertoire of BASIC 
statements and functions. Examples of both kinds of routines are 
given at the end of this paragraph. The second method for using 
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of the BASIC program into the Blue Ram and execute it from there. 
Up to 4219 additional bytes of program can be written this way 
for a total,program length of over 6000 bytes (characters). The 
first step is to divide the overall program into two parts, one 
part for the normal 1800 byte BASIC memory and the other part for 
the Blue Ram. There are some restrictions on the Blue Ram part 
so plan the division very carefully. The following restrictions 
apply to Blue Ram BASIC program parts. 

1. Direct GOTO snd G0SUB cannot be made to Blue Ram program 
parts. Instead, an indirect linkage must be defined. In the 
normal BASIC part the linkage takes the form: CALLnnnnn where 
nnnnn is the decimal equivalent of the beginning address of the 
Blue Ram linkage part. The Blue Ram linkage part requires four 
bytes: .11 hh hh C9 where hh hh is the hexidecimal address of the 
beginning of the Blue Ram program part being linked to. Note that 
the hh hh is in reverse byte order. Example: 

BASIC program part: 10 CLEAR ;CALL24576 

20 PRINT "ALL DONE" 

Blue Ram program part: 6000 11 04 60 C9 3B 74 22 

6007 54 48 49 53 20 4D 45 

600E 53 53 41 47 45 20 49 

6015 53 20 46 52 4f 4d 20 

601C 54 48 45 20 42 4c 55 

6023 45 20 52 41 4D 22 3B 

602A 6E 32 30 0D 

The contents of the Blue Ram part, after the linkage, is the 
ASCII equivalent of the BASIC statement: 

;PRINT "THIS MESSAGE IS FROM THE BLUE RAM";GOTO 20 

An.editor for entering characters directly into the Blue Ram is 
being developed by Perkins Engineering to avoid having to cope 
with linkage programs and ASCII translations. The Blue Ram part 
will be entered, via the editor, in much the same way as Bally 
BASIC now accepts program statements. 

2. Blue Ram statements are considered extensions of the 
statement which CALLS them. Therefore each such Blue Ram part 
statement CALLed from the normal BASIC part must begin with a 
semi-colon ; as a separator just as with any compound BASIC 
statement. 

3. All transfers to Blue Ram program parts are via the 
CALLnnnnn statement. Instead of GOTO 2000 therefore, a CALL to 
24576 is used. Where it is desired to reference a Blue Ram part 
as a subroutine, a dummy subroutine must be created in the normal 
BASIC part. The dummy subroutine will then transfer to the Blue 
Ram part. The Blue Ram part will contain the body of the sub¬ 
routine as well as the RETURN statement. For example: 

10 G0SUB 200;STOP 
200 CALL24576 

SPRINT "THIS IS A BLUE RAM SUBROUTINE";RETURN 

The last "PRINT" statement is the example subroutine in the 
Blue Ram. 
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4. Line numbers have no meaning and cannot be referenced 
to access the Blue Ram program parts. However, since BASIC 
expects a line number after each "line" of program, pseudo line 
numbers must be used for multiple line Blue Ram program parts. . 
For examples 


;PRINT "THIS IS THE FIRST LINE" 
xxPRINT "THIS IS THE SECOND LINE" 
xxFOR N=1T0 20;PRINT N,NxN;NEXT N 

The xx at the beginning of each additional line is a two 
character filler used to take the place (and space) of the 
normal line number. This must always be two characters and 
must always be present although the choice of characters is 
arbitrary. If ASCII numbers are used, they will be of more 
meaning-in the listing. The editor being developed will include 
facilities for applying these pseudo line numbers and for 
dumping and loading the Blue Ram program parts as well as listing 
those parts. Bally BASIC will not directly acknowledge the Blue 
Ram program segments when performing normal sPRINT ;LIST or LIST 
functions. However, for experimenters, the following statement 
will render a listing of Blue Ram program parts entered in ASCII 
via the Blue Ram Utility: 


FOR N=(first address) TO (last address);TV=$(N);NEXT N 


The Blue Ram Utility can be used to dump these program parts to 
tape just as if they were machine code segments. 


A Service Routine Library is underway and routines are solicited 
from anyone who can provide machine code and documentation for 
such routines. The routines should be of a general usage nature 
and fully documented in terms of what they do and how to CALL them. 
Initial allocations for the service routines will begin at address 
6D00.(27904 decimal) and progress upward until that area is full. 

We will then start on another area. Of course not all routines 
need be loaded at once. The following are three candidate service 
routines to begin the library: 


These two routines allow access 
to up to 3072 half-size strings, 
where each string entry can 
contain a positive number from 0 
to 255 or a character. The string 
entry number is set into A and the 
contents of the string is set into or retrieved from B. Example: 
A=14 ;B=QxNjCALL 27930 stores the product of Q and N in half-string 
entry #14. FOR A=0T0 20;CALL27904;PRINT B;NEXT A will print the 
contents of the first 21 half-string entries. CALL27930 stores the 
contents of B into half-string entry A. CALL27904 fetches the 
contents of half-string entry A into B. 


6D00 CD OF 6D 4E 06 00 D3 
6D07 CO ED 43 70 4E D3 40 
6D0E C9 21 FF 6B ED 4B 6E 
6D15 4E AF ED 42 C9 CD OF 
6D1C 6d 3A 70 4E 77 C9 


6D22 21 70 4E 06 FF 13 CD 
6D29 CF 2F FE 3B 28 04 FE 
6D30 0D 20 07 26 00 68 22 
6D37 6E 4E C9 CB 74 28 E9 
6D3E 04 BE 20 E5 26 00 18 
6D45 El 


This, routine compares the value 
in B with a list of possible 
matching characters and returns 
the matching list entry number 
in A. If no match is found, a 
number one larger than the list 
size is returned. The list is 
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placed in the statement immediately after the CALL address. For 
example: CALL27938,AXJKPTZ$ causes the value in B to he 
compared against the possible choices: "A", "X", "J", "K", "P", 
"T", and "Z" (the ASCII values of these letters not the contents 
of the variables) and sets A to the number of the match if any. 
Suppose that B contained the character "K". The value returned 
in A would be a 3 because the letter "K" was the number 3 entry 
in the list beginning with 0 for A, 1 for X, etc. If B had 
contained a value not in the list, say "Q" for example, the 
number returned in A would be 7> one more than the last entry in 
the list. The comma after the address 27938 is a required 
separator and is not considered part of the list. The dollar 
sign at the end of the list is the list terminator and is also 
not considered part of the list. Any character may be used as the 
terminator but the list must contain the terminator for proper 
operation of the service. The list may be of any length within 
the normal limits of statement length. Here is a more complex 
example: 

10 FOR C=0T0 7 This example tests for the 

20 B=KP;TV=B exact entry at the keyboard 

30 CALL27938»MARY D0E$ of the name MARY DOE. If any 

40 IF A=C NEXT C;STOP error is made along the way, 

50 PRINT "ERROR"sGOTO 10 the word ERROR is printed and 

the sequence is tried again. 

By omitting the TV=B statement in line 20, this could be used 
as a secret password identifier. Only an exact spelling' will 
pass. If you try to write a conventional program to do the 
same thing you will quickly see what a savings this service can 
be. And remember, routines in the Blue Ram are not lost during 
a RESET operation so these services can be kept on-line just like 
Bally BASIC. The same is true for Blue Ram BASIC program parts. 

BLUE RAM NEWS, The next issue of the ARCADIAN will herald the 
arrival of the Blue Ram Modem Interface which is used to connect 
the Blue Ram to a Livermore Data Systems STAR modem. The modem 
and interface combination allows telephone communications between 
Bally owners, with local Computer Bulletin Boards, and with the 
mind-boggling world of the Source. A prototype of the modem 
interface has been working for over a month now and all that 
remains is pinning down the options and parts suppliers. A 
special communications program is in development which tailors 
the interface protocol to the Source formats and includes a 3 x 5 
character set for a screen format of 40 characters by 14 lines, 
similar to APPLE'S format. Also, a parallel interface to the 
Base^ Model 800B printer is being considered as part of the modem 
interface to allow hardcopy printouts of text communications. 

The STAR modem is available from several dealers at $139. 

Please feel free to contact John Perkins with any technical or 
engineering or other questions concerning the Blue Ram or its 
support devices and programs. (804) 428-9092 Source ID TCV403. 

CORRECTION to ADDITIONAL BASIC FEATURES on page 102. The two 
bytes (m) and (n) are backwards in the calculation which should 
read (n)x256+(m). This will change the numbers on the last line 
to 770 vice 515 resulting in: :INPUT 770 or :LIST 770. 
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BLUE RAM PROGRAM. New capabilities of the Bally Arcade with the 


Blue Ram add-on was the program topic at a recent meeting of the 
Tidewater Computer Club at Norfolk, Virginia. John Perkins of 
Perkins Engineering presented practical home uses of the Bally 
and the following accessories developed by Perkins Engineering: 

Blue Ram, Keyboard, Modem interface, BSR controller interface, 
and Music compiler. Inputs were made easily with the keyboard, 
complete with the fancy features of N-KEY ROLLOVER, REPEAT, 

CONTROL CHARACTERS, etc. 

The BSR, a popular home device controller, was operated via the 
controller interface by the Bally executing a demonstration 
program. A lamp was controlled by the BSR, and, while the club 
watched, the lamp flashed on and off and slowly dimmed and 
brightened as the Bally processed a time table set of instructions. 
We discovered how convienent and perhaps economical it would be 
to control automatically the hours certain home devices are 
turned on and off. 

Next, we listened with pleasure to several Bally compiled 
musical selections from Bach and Handel in three part harmony. 

It was explained that the compiler is used to translate a 
person's own composition or regular sheet music into a form that 
is played by the Bally. 

Then, a quick phone call connected the Bally (with modem) to the 
Source , using the modem interface. The Source is a nationwide 
communication/information sharing network. Previous club programs 
demo'ed the Source , but never was such realtime excitement 
generated. First of all, everyone was able to read inputs/ 
responses in large print on the T.V. Secondly, as we sampled the 
smorgasbord of Source information, a New Hampshire computer 
group broke in, wanting to "chat" with usl Well, when they 
discovered we were communicating via a Bally Arcade, we read 
across the screen, "YOU'VE GOT TO BE KIDDING." 

Yes, Bally Arcade and Perkins Engineering brought us (and New 
Hampshire) some surprises that night! 

P.S. Bally users are in a majority at club meetings, and new 
Bally users are invited to attend bimonthly at ECPI, Stanwick 
Building. 

Karen P. Cravedi, VEEP 
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5 .MASTERMIND 
S .BY BOB WISEMAN 
10 :RETURN ;NT=1;CLEAR 
20 BC=6;FC=0 

100 PRINT ;PRINT ’THE GAME OF MASTERMIND *;PRINT 
110 PRINT 'COLOR CODES:' 

120 R=1200;GOSUB R;PRINT 'R=RED G=GREEN' 

140 GOSUB R;PRINT '0=0RANGE B=BLUE' 

150 GOSUB R;PRINT *Y=YELLOW P=PURPLE' 

180 M=0 

190 FOR N=1T0 4;@CN)=RND (65;NEXT N 
192 PRINT 'YOUR MOUE' 

195 M=M+1 

196 IF M=10GOTO 1000 
220 FOR N=4bM+lT0 4bM+4 
240 G=KP;TU=G 
245 IF G=81G0T0 1000 
250 IF G=89BC=126;e(N>=i;G0T0 400 
250 IF G=B2BC=98;@KN)=2;G0T0 400 
270 IF G=71BC=156;@(N>=3;GOTO 400 
280 IF G=80BC=43;@(N>»4;GOTO 400 
290 IF G=79BC=110;@(N)=5;GOTO 400 
300 IF G=66BC=249;N)=G;GOTO 400 
310 TU=31;TU=63;TU=31;G0T0 240 
400 NEXT N 

410 B=0;W=0 

420 FOR Z=1T0 4 

421 P=Mb4+2 

423 IF @(P)=@(Z)B=B+l;@(P)=@CP>+14;@CZ>=eCZ)+7 

425 NEXT Z 

426 FOR Z=1T0 4;P=Mb4+Z 
430 FOR N=1T0 4 
435 IF Z-NGOTO 470 
440 IF §>CN)4@(P>G0T0 470 
-450 e(P)=@CP> + 14 
455 @CN)=e(N)+7 
450 W=W+1;GOTO 500 
470 NEXT N 
500 NEXT Z 

502 FOR N-1TO 4;IF €>C N ) >6@C N )=#( N > 

504 NEXT N 

510 PRINT 44,B,' BLACK',42,W,' WHITE| 

522 Z=10bB+W;NT=0 

524 FOR N--ZTO 1STEP -1 

525 &( 22> = -32700 
525 &C16>=Nb2;NEXT N 
528 &C16)=0;NT=1 
530 IF B<4GOTO 195 
900 PRINT 'YOU WIN- 
910 NT=0;FOR Z=400TO 1STEP -4 
.915 &C 22 >=-32760 
920 &C16>=Z;&(17>=Zc2 
930 NEXT Z;NT=1 


Eob Wiseman 

118 St. Andrews Dr. 

Cincinnati, OH 45245 


In this version of MASTERMIND, the 
computer holds a four-color code 
that you must guess. Enter the first 
letter of each color guessed via the 
keypad. Each ELACK response means a 
correct color in the correct spot, 
while a WHITE response means a cor¬ 
rect color in the wrong spot. 


IQ 


S35 &( 22 )=0; &( 16 )=0; &( 17 )=0 
940 A=KP;GOTO 10 
1000 PRINT 'TOO MANY TRIES 
1002 FOR Z=1T0 400STEP 4 
1004 &( 22>=-32760 

1006 &( 16 >=Z;&( 17)=Zc2;&(18)=Zcl0 

1008 NEXT Z 

1009 &(16>=0:@(22)=0;&(17>=0;&(18)=0;NT=1 

1010 PRINT 'THE CODE WAS:' 

1020 FOR N=1T0 4 
1030 Z=@CN) 

1040 IF Z=1PRINT 'YELLOW ', 

1050 IF Z=2PRINT 'RED ', 

IF Z=3PRINT 'GREEN ', 

[1070 IF Z=4PRINT 'PURPLE *, 

J1080 IF Z=5PRINT 'ORANGE ', 

11090 IF Z=6PRINT 'BLUE ', 
jl095 NEXT N; A=KP; GOTO 10 
[1200 CX=-50: Of TURN 
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Bally Basic By: Steve Walters 

556 Langfield 

PROGRAM TITLE & INSTRUCTIONS Northville, MI 48167 

WITHOUT USING MEMORY 


Bally Basic programs, especially games, are nicer for the user if a title and 
operating instructions appear on the screen to start the operation. This lets 
the tape be loaded and used by a new player without having to refer to a paper 
instruction sheet. However, there is often a frustrating trade-off between 
the program instructions we would like to display, and the memory capacity we 
finally need for a good operating program. 

The procedure described below will allow you to display a title at the beginning 
of the tape load, and up to nine lines of title and/or instructions at the end 
of the tape load, without using any memory space. The specified input command 
(e.g., :INPUT 2) is used to control this process. 

Loading the program . When the operating program is ready to store permanently onto 
tape, set NT=Y (type in NT=1 and press GO). Then enter the following: 

:PRINT; TV=0; TV=1; PRINT; PRINT "PROGRAM TITLE"; PRINT "BY PROGRAM AUTHOR"; 

PRINT; LIST; PRINT; PRINT "STANDBY-"; PRINT; PRINT ":RETURN; :INPUT 2" 

Do not press GO at this point. With the above entered, start the tape recorder on 
record, and when the leader has gone by press GO. You will see ?? which are the 
TV numbers for the input number command, followed by the title and author, then 
the normal program listing, then STANDBY-, and then :RETURN; :INPUT 2. As soon as 
this last statement appears on the screen, turn the tape recorder off without 
entering anything else., and leave the tape cartridge at the position at which it 
was turned off. 

The following should be noted in using the above procedure: 

(a) the TV instruction shown is an example, since TV=0; TV=1 sets up an 

input code which will input only on the instruction :INPUT 1 (see ARCADIAN 
page 102). Use whatever TV code you want for your program input instruction. 

(b) put whatever information you want in the PROGRAM TITLE and-PROGRAM AUTHOR 
lines, within the. limit of the buffer space. If the keypad entry locks 
out on you before, you have entered the above material, then you have put 
too many characters in these two lines. 

(c) the last instruction :RETURN; :INPUT 2 closes the 10 port and then waits 
to re-open it when it finds the proper TV input code. The above sample 
uses 2 as an example. If more than one program is included on a tape, 
both of the input codes for each Drogram should be unique values, used 
only once, on the tape. 

Loading the message . A separate program is now used to load the message onto the 
ta P e which you want to appear after the program load but before the program 
operation begins, such as the title and playing instructions. Press RESET to clear 
out the operating program, and then enter the following: 

- 20 - 




10 CLEAR 

20 TV=0; TV=2 (this should correspond to the value in the last 

30 PRINT; PRINT statement of the Drogram load sequence) 

40 PRINT ".PROGRAM TITLE" 

50 PRINT ".PROGRAM AUTHOR" (each line of message should contain no more than 

60 PRINT 11 .********************" 23 characters/spaces after the period) 

70 PRINT ".INSTRUCTIONS" 

80 PRINT ".INSTRUCTIONS" 

90 PRINT ".INSTRUCTIONS" 

100 PRINT ".INSTRUCTIONS" 

110 PRINT ".INSTRUCTIONS" 

120 PRINT ".TO START PUSH KEY 1" (see note a) 

130 PRINT ":RETURN; NT=0; BC=133; K=KP; GOTO 1 (see note b) 

All message lines (Line 40 thru Line 110) must be used to fill the screen and scroll 

unwanted material out of sight. If you do not need all the lines, or want 

spaces between parts of the instructions, write PRINT only in that line. 

When the message loading program is ready to record onto the tape, enter :PRINT; RUN 

without pressing GO. Then start the tape on record and press GO. As soon as the 

material in Line 130 appears on the screen, turn the tape recorder off without 
entering anything more. 

The tape is now ready to input and display the message. 

(a) Line 120 is based on the key-press in Line 130 being used to start the main 
program operation. This requires no memory space. However, I usually prefer 
to have the hand controller operate everything if possible, which requires 

a line in the operating program, as follows: 

(1) change Line 120 in the above message program to 

120 PRINT ".TO START PULL TRIGGER" and eliminate K=KP in Line 130. 

(2) add this line to the operating program: 

1 BOX 0,-32,159,7,2; IF TR(1)#1 GOTO 1 

The BOX instruction is not necessary, but it blanks out the material 
which was printed by Line 130 in the message program, for a nice 
screen display. Line 1 in the program simply loops on itself while 
the player is reading the message, until he pulls the trigger. 

A CLEAR instruction will probably be needed at the next operating 
line. 

(b) Line 130 contains some items as examples. If you need NT set at a specific 
value, or a color set, a value set (e.g., A=200) or other item once at the 
beginning of the operating program, it can be done as part of Line 130 without 
using program memory space. Be careful about the length of Line 130, since 

it will cause the message to scroll out of sight if it is too long. You could 
use two lines for this if needed. 
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598 

599 

600 


602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 
693 

699 

700 

701 

702 

703 

704 

705 

706 

707 
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.MONTH NAMES 



PRINT "JANUARY",;RETURN 
PRINT "FEBRUARY",;RETURN 
PRINT "MARCH",;RETURN 
PRINT "APRIL",;RETURN 
PRINT "MAY",;RETURN 
PRINT "JUNE",;RETURN 
PRINT "JULY", ;RETURN 
PRINT "AUGUST”, ;RETURN 
PRINT "SEPTEMBER", ;RETURN 
PRINT "OCTOBER",;RETURN 
PRINT "NOVEMBER",;RETURN 
PRINT "DECEMBER", ;RETURN 


PRINT "SUNDAY",;RETURN 
PRINT "MONDAY", ;RETURN 
PRINT "TUESDAY", ;RETURN 
PRINT "WEDNESDAY",;RETURN 
PRINT "THURSDAY", ;RETURN 
PRINT "FRIDAY", ;RETURN 
PRINT "SATURDAY", ;RETURN 


301 .ERROR MESSAGES 
802 . 

810 PRINT;PRINT " INVALID MONTH!! 

820 PRINT " 1 TO 12 ONLY PLEASE!! 

830 FOR C=1 TO 450;NEXT C;CLEAR;PRINT;GOTO 40 
840 PRINT;PRINT " INVALID DAY!! ", 

350 GOSUB 600+M 

860 PRINT;PRINT #3," HAS ONLY",N, " DAYS!!";GOTO 80 
870 PRINT;PRINT " INVALID YEAR!! 

880 PRINT " 1583 TO 9999 ONLY PLEASE' 

890 PRINT;GOTO 100 

900 PRINT;PRINT " INVALID DATE!! 

910 PRINT;PRINT #6,Y," IS NOT A LEAP YEAR!! 

920 GOTO 830 


AD: 

ol Sound Quality Enhancement - Here's a full range of sound from ycur 
Bally with the Sound System I Audio Add-on. Connects to expansion port; 
cable and connector included. Features 4-8 ohm speaker output, 2 pre-amp 
outputs, headphone jack, on/off volume control, and 117v operation. Advise 
i4 you have a Blue Ram. Only $28, wired and tested, plus $3 postage/UPS. 
o Heavy duty power supply to replace the Eally wall transformer. All steel 
cabinet construction with on/off switch and indicator light plus an easy- 
to-replace fuse output. Line cord. Bally power connector. $24 wired, plus 
$3 postage/UPS Alternative Engineering, 1 Gilbert Dr. Chelsea.ME 04330 
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TUTORIAL: TAPING MEMORY 

by Dave Ibach 


Here is an alternate way to put your program on tape: 

> A = -2457b 19533 Dartmouth PI. 

> B=/£-C20050} Northville, MI 48167 

>PRINT B 

nnnnnn --—*use it here - 3 , 

> NT=1i:PRINTiPRINT *. PRINT *A=-2457biB=nnnnnnl 

FOR N=A TO Bi ^{N>=KPi NEXT N=, *-C20050}=B i 

: RETURNi RUN^iFOR N = A TO B^CY = MOiTV=J:-CN}n 

NEXT Ni:RETURN get tape moving then press GO 

The program can be loaded from tape to memory by using the 
standard :INPUT command. 

Uhy would you want to do it this way? Firstn the program 
doesn't list on the screen during loading. If you have a 
program that holds surprises for those who playi such as the 
printing of clever remarksi you might not want to reveal the 
program listing during loading. 

Secondi you can easily include the contents of the string 
variable with this approach- Do it this way: 


>A=-2457b 
> B=^IBQDS0} 

>C=B+2x-Cthe number of string variables desired 
including @-CD}> 

>PRINT B 


nnnnnn-^use it here - 

> PRINT C 

mmmmmm --^ use it here-. 

>NT=1 l I 

> :PRINT^PRINT "."SPRINT "A=-2457b=,C=mmmmmm1 J 
FOR N=A TO Ci3£-CN}=KPi NEXT NS *-C200S0>=nnnnnnS 
iRETURNiRUN^iFOR N=A TO CiCY=M0iTV=^{N}i 
NEXT Ni:RETURN get tape moving then press GO 


A third reason for taping your programs in this fashion 
is to save memory. The remainder of this tutorial will explain 
how- 

In your programn you use statement numbers for three reasons: 


1. As the object of a GOTO or GOSUB 

2. To terminate the scope of an IF statement 

3. The input buffer doesn't allow a statement to 
be greater in length than 102 keystrokes. 


Each time you are constrained by *3i you are throwing away 
two memory locations. In additionn if you are storing data in 
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the first few lines -Cas George lioses does in his music tapes}-! 
it can be particularly annoying to have to deal with statement 
numbers that recur too frequently. To get rid of these 
extraneous statement numbers: 

1- hake a handwritten list of the statement numbers 
that exist for this reason. 

2. Rewrite each one of these statements inserting a 
semi-colon after the statement number. This is done 
so that we can concatenate the text to the previous 
statement. This step is unnecessary for data lines. 

3. Squeeze out statement number x like this: 

/ 

> f OR N=-24S7b TO Di IF *-CN}*xNEXT N 
>F0R I=N-1 TO -22775STEP I} = *-CI + 3>i NEXT I\ 

^-C2D0SD}=^-C500SD>-3 

Hint: to avoid the tedium of doing step 3 repeatedly! make these' 
the first two statements of your program! even if you have to 
borrow the space by temporarily eliminating other lines: 

1 INPUT *STIiT * TO ELIMINATE f' 7 A FOR 
N=-BMS7b TO UnlF *{N>*A NEXT N 

2 FOR I=N-1 TO -2277SSTEP 2i ^■CI}=5'-CI+3>^ NEXT Ii 

J:i2DDS0>= , /'-CEDDS0>-3!ST0P I 

Now simply RUN once for each statement number you wish to 
eliminate. J 

4. Et voila n it's done^ If you followed the previous 
hintn take out lines 1 and 2 and restore any lines 
you may have temporarily removed. 

Now your program is listable! executable! and smaller in 
size. PRINT SZ if you are skeptical. 

But you can't write it to tape and reload using the 
normal technique! because some of the statements are now too 
big for the buffer. You'll have to write it to tape using 
one of the techniques given at the beginning of this tutorial. 
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HORSERACE, by Paul 

5 NT=0;CLEAR ;FC=155;BC=1G0;N=0;FOR Z=1T0 4;Z+20)=500;NEXT Z;&(9) = 180 
10 CY=5;PRINT "WELCOME TO ARLINGDUNG PARK“;INPUT “# OF PLAYERS? (1-4)“A;IF R>4 
GOTO 10 

15 GOSUB 290 

20 CLEAR ;CX=-20;PRINT “RACE ;PRINT #1,N;T=0;S=0;GOSUB S00 

30 FOR Z=1T0 8 ;PRINT #2,Z,;@(Z+ 8 )=RND C5)+RND C3 ) + l;CX=38;PRINT #1,@(Z+ 8 ),;CX= 
45;PRINT ”:1*,;CX=-50;GOTO 30+Z 

31 PRINT “ALBADEXTERNEXT Z 

32 PRINT *JO L IN';NEXT Z 

33 PRINT 'C BICUSPID';NEXT Z 

34 PRINT 'SEATLE SLEWED';NEXT Z 

35 PRINT "WOMAN O'WAR';NEXT Z 
38 PRINT “DUSTY PAUL';NEXT Z 

37 PRINT 'DIABLO';NEXT Z 

38 PRINT 'SECRETARYLESS';NEXT Z 

40 FOR Z=1T0 A;IF @(Z+20)=0@(Z+1G)=0;NEXT Z;GOTO 100 

50 CY=-32;PRINT 'PLAYER #',;PRINT # 1 , Z, ;CX=-20;INPUT B;CY=-32;CX=10;INPUT C 
80 IF B>0IF B<10GOTO 80 
70 GOTO 50 

80 IF C>@CZ+20)CY=-32;PRINT 'SORRY,I'M NO LOAN SHARK“;GOSUB 810;CY=-32;FOR B=1 
TO 23;PRINT ' ',;NEXT D;CX=-78;GOTO 50- 

90 @(Z+16)=B;Z+20)=<§>(Z+20)-C;•(Z+24)=C;NEXT Z 
100 FC=160;NT=5;PRINT '148 641 841 641000000';CLEAR ;NT=0;FC=155;CY=35 

110 FOR Z=1T0 10;CX=70;GOTO 110+Z 

111 PRINT “X';NEXT T 

112 PRINT “X';NEXT Z 

113 PRINT *F“;NEXT Z 

114 PRINT ' I'; NEXT Z Paul Slezak 

115 PRINT “N”;NEXT Z 1818 S. 59th Ave 

118 PRINT 'I';NEXT Z Cicero, IL 6 C 65 O 

117 PRINT 'S';NEXT Z 

118 PRINT “H”;NEXT Z 

119 PRINT 'X';NEXT Z 

120 PRINT 'X'‘; NEXT Z 

130 CY=25;FOR Z=1T0 8 ;PRINT #2,Z,;CX=-80;PRINT *:';NEXT Z;GOSUB 610 
140 CY=25;FOR Z=1T0 8 ;CX=-G0;PRINT *..';NEXT Z 

150 NT=1;&(20)=50;&(Z1)=205;FOR Z=1T0 35;MU='U';NEXT Z;NT=0;&C20)=0;&(21)=0TCY- 
25;FOR Z=1T0 8 ;PRINT ’ “;NEXT Z 

155 CY=0;PRINT “..AND THEY'RE OFF!!';GOSUB 810;CY=0;PRINT ' SP*C€S 

160 GOSUB 610 

170 CY=25;FOR Z=1T0 8 ;@(Z)=@<Z)+C(RND (4)+8+RND C5))-(RND (Z+ 8 ))));CX=@(Z);PR 
INT #1,Z;IF Z)>65S=1 
175 NEXT Z;GOSUB 610 
180 IF S=lGOTO 200 
190 CY=25;GOSUB 620;GOTO-160 

200 G=0;FOR Z=1T0 8 ;IF G>@(Z)NEXT Z;GOTO 220 
210 X=Z;G=SKZ);M=@(Z+ 8 );NEXT Z 
220 B=0;FOR Z=1T0 8 ;IF @(Z)>65B=B+1 
230 NEXT Z; IF BMGOSUB 500 

240 CLEAR ;CY=0;PRINT 'THE WINNER IS #",;PRINT #2,X;G0SUB 610 
250 FOR Z=1T0 A;IF @( Z+16)=X@<Z+20)=@CZ+24)bM+@CZ+20) 

260 NEXT Z 

290 CLEAR ;CX=-30;PRINT 'YOU HAUE' 
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300 FOR Z=1T0 R; PRINT "PLRYER #',;PRINT #1J> Z,;PRINT #2,* $",;PRINT #2,@<Z+20);N 
EXT Z \ 

310 FOR Z=1T0 3000;NEXT Z 
320 IF N >8G0T0 400 
330 N=N+1;IF N>0GOTO 20 
340 RETURN 

400 CLEAR ;FC=7S;BC=82;CY=16;CX=-35; PRINT -RACES OUER!!';PRINT ;PRINT 
410; PRINT 'IF YOU WANT 9 MORE RACES PRESS 1 *;A=KP;IF A#49ST0P 
420 GOTO 5 

500 FOR Z=1T0 6;CLEAR ;FC=212;BC=209;CY=0;CX=-35;PRINT 'PHOTO FINISH*;NEXT Z;BC 
=160;FC=155 
510 RETURN 

S00 FOR Z=1T0 8; @( Z )=-78;NEXT Z;RETURN 
610 FOR F=1T0 300;NEXT F;RETURN 

620 FOR D=1T0 8;CX=@CD);PRINT * *;NEXT D;RETURN 

REVIEW FORM i^shown below. This will give you the code for the various 
numbers used and the categories. 

BALLY PROGRAM REVIEW 

Date i_ 

Name of ProSpa*!----Cassette Name- 

Description!- 

Source!__-Price- 

Reviewed by!___ 



Circle score for each item 0123456789 on scoring line. 

PROGRAM DOCUMENTATION <PD> 

No Instructions 0123456789 Very Clear Description 

Listing* Flowchart * Instructions 


PROGRAM POLISH (PP) 

Sloppyr Amateurish 0123456789 Professional 

USE OF SPECIAL FEATURES (USF) 

Minimal Used 0123456789 Great Use of Features 

Graphics* Sound* Handles 


LEVEL OF CHALLENGE <LC> 

Not Challenging 0123456789 Very Challenging 
ORIGINALITY AND CREATIVITY (OC) 

Adapted* Same Old Stuff 0123456789 Totally Brilliant and Unioue 
LEVEL OF INTEREST (LI) 

Boring 0 1 2 3 4 5 6 7 8 9 Fascinating 


EDUCATIONAL VALUE (EV) 

Little 0123456789 Really Learn Facts 
and Skills 

EASE OF USE (EU) 

Awkward* Inconvenient 0123456789 Easy* Quick* Convenient 
OVERALL VALUE <0V> 

Almost Worthless 0 1 2 3 4 5 6 7 8 9 
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CASSETTE REVIEW 


Date: 8/30/80 


CASSETTE NAME: Program Tape #2 

PROGRAMS ON CASSETTE: Wumpus 3.1; Blackjack II; Life 4.2; File Create; 
a Input/Output; Text Editor; Biorhythm 3.0 


CASSETTE PRICE: $10.00 LISTING PRICE: 

SOURCE Name: Mark Keller 

Address: 9536 Shumway Drive 

City: Orangevale State: CA 


Not Available 
ZIP: 95662 


Reviewed by Bill Rueger Age 31 
PROGRAM NAME: Wumpus 3.1 

DESCRIPTION: This Is a very good version of Wumpus. Perhaps the best 
ture is that It allows you to program your own cave sequence and also to 
2 It on tape for later use. This Is done using the Tape Input/Output 
Irani that follows. This attribute, and the documentation, is worth the 
:e of the cassette alone. 


RATING % based on applicable rating Items. 53/72= 73.6% 

PD= 7—PP= 8 USF= 5 LC= 6 0C= 7 LI= 6 EV= XX EU= 7 0V= 7 

Time to play 10-30 min. For ages All # of players 1 

PROGRAM NAME: Blackjack II 

DESCRIPTION: This program Implements the game of Blackjack for one 

, - r vs - the computer. The rules are the same as the casinos with the 
option that If you split your cards the dealer will play against each hand 
>r you stand on ft. The dealer also alternates between two decks and only 
Is the top 26 cards from each deck. If you do not already have the Blackja< 
jocade, this version Is very good, minus the graphics and multi-player 
ibillty. It also allows for Insurance as do the casinos. 


RATING % based on applicable rating 
PD= 7 PP= 8 USF= 1 LC= 5 0C= 5 

Time to play Variable For ages 


items. 42/72 = 58.3% 

LI = 5 EV= XX EU= 6 0V= 

10 up #• of players 1 


5 


PROGRAM NAME: Life 4.2 

DESCRIPTION. While not as fast and graphically "clear" as other versions 
ive encountered, this version does have some helpful features that make It' 
: for any Life addict to acquire. It has the ability to stop the program at 
end of a generation and change or Insert additional colonies. The program 
then continue at the generation It was on. It also allows you to set up tf 
iram visually through keyboard entry, eliminating the need to use graph 
sr and co-ordinates. 


RATING % based on s 
PD= 6 PP= 7 U3F : 
Time to play 


ippllcable rating Items. 
! 4 LC= XX 0C= 5 LI= 5 
For ages All 


38/ 63 = 60.3% 

EV= XX EU= 6 0V= 5 

it of players 


PROGRAM NAME: File Create 

DESCRIPTION: Allows you to make files of string data. This Is a very 

ul program which allows you to create data records for later use. For 
iple, you can create a file of cave locations to be used with the Wumpus 
>-arn. This can be stored on tape and used whenever you wish. A most 
•estfng program, with good documentation on how It’s down. 


1 terns 


50/ 63 


79. 


PROGRAM NAME: Tape Input/ Output 

DESCRIPTION: This program lets you. make copies and also enter them Into 

the computer of Data Files. It Is used in conjunction with the File Create 
program. It Is an excellent program with Documentation on "how It works". 

RATING % based on applicable rating Items. 49/ 54 = 90.7% 

PD= 8 PP= 9 USF= XX LC= XX 0C= 8 LI= XX EV= 8 EU= 8 0V= 8 

Time to play -_For ages_,# of players 

PROGRAM NAME: Text Editor 

DESCRIPTION: This is another useful program that allows you to edit each 

•U£ e u ,n yOUI * program to corrsct errors, make changes etc. It takes up only 
300 bytes so can be used with lengthy programs. It lets you access any line in 
a program and edit it without having to retype the entire line. A must for 
anyone who writes his own programs. 


RATING % based on applicable rating items. 50/ 54 
PD= 8 PP= 9 USF= XX LC= XX 0C= 3 LI= XX EV= 9 
Time to play -For ages_# of 


= 92.6% 

EU= 9 0V= 8 

players 


PROGRAM NAME: Biorhythm 3.0 

DESCRIPTION: This program plots your particular Biorhythm for a given 

month and day. It does so by graphic display. It also Includes "experimental" 
cycles of Health, Sex, Precognition, and Natural High. It is a very graphic 
program and easy to read. 


RATING % based on applicable rating items. 

PD= 7 PP = 7 USF= 7 LC= XX 0C= 7 LI= 7 
Time to play -For ages All 


49/ 63 = 77.8% 

EV= 0 EU= 7 0V= 7 
# of players 1 


PHILOSOPHY A bit of space otherwise unoccupied, so I shall inject a 
few words... There is no single place that one can go to for full 
information about the Bally Arcade, or its version of Palo Alto Tiny 
EASIC. There is no book that will convert from any other dialect of 
Tiny EASIC (upwards of 4C0) into Eally EASIC. Effort in this area 
requires a lot of cut-and-try, and certainly an understanding of what 
was intended by the originating programmer. That is, you have to know what 
he had in mind when he wrote the program. I have tried to fill the 
void of understanding how/why the Bally works the way it does with the 
ARCADIAN, and through the help of a lot of contributors, we have been 
able to document quite a bit, and to begin to understand its operation. 

All this material is included in the earlier issues of the ARCADIAN, 
from the first one to the latest. Those of you who are new subscribers 
should avail yourselves of the material that is in the first two volumes, 
because it is not my intent to reinvent the wheel every year and go over 
that material. Aside from the knowledge you will obtain, there are seme 
really great programs in there, like Collins' Checkers, or Perkins' 

Ojello, to pick a couple. If someone were really ambitious, they could 
extract the tutorial material, and the game material, and produce a sort 
of digest, but not me. Dick Hauser has put a lot of games on tape, so 
part of that has been done already. Back issues are available at $10 for 
each year, 1979 and 1980. 
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ADS: 

• Programs available: Masteraind(1 player);Spell and Score(2);Slot Machine(1); Craps (1); 
Checkbook Balancer; Russian Roulette (to 10); above 2.50 each. Dragon Hunt (1) 1.50 - 
try to find the invisible dragon.on a 10x10 table. Prices are for listing or for 
recording on your tape. All old programs revised and improved, and all programs come 
with complete instructions,guaranteed bug-free. S.Walpole,11480 Beirut Ct. #204, 
Sappington, M0 63126 

• Bally Software: Memory Maze (1-2 players) study the maze, then try to move thru it 

when it is invisible, scoring, color, music. Crazyface - Bally draws chinaman, foctball 
player,witch,singer, mountie; then you move hats, eyes, noses,mouths,necks to develop 
your own crazy faces. Hidden Word Finder - manipulates a hidden word puzzle. All three 
on tape plus full documentation 7.95: S.Walters,556 Langfield, Northville MI 48167 

AN EXPANDED ISSUE this time as a number of good items 
came in. Also ,the expected postal rate increase is 
apparently a bit off, so I have some excess money which 
is going into the larger volume of printing and postage. 

BUT I'm also drained out of material, so please keep the 
programs and tutorials coming in for our mutual under¬ 
standing. 

The SOURCE is mentioned a couple of times inside, it is 
composed of a giant computer having lots of data stored 
in it, such as the latest stock reports, UPI news reports 
on both national and local levels,a New York Times data 
bank, lots more. It also allows classified ads to be placed 
or read, private letters between subscribers, or 'face-to- 
face' talking. You can use it as a word processor or a 
computer, then store your work 'till another day. All you 
need is a computer terminal (Bally and TV screen) and a 
Modem to tie to the telephone lines. Full details in the 
next issue. 

HAPPY HOLIDAYS to you all!! 
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The SOURCE TCD 959 

Robert Fabris, joyous at Noel 

3626 Morrie Dr. 

San Jose, CA 95127 
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January 9,1981 


~ The /SJ? r Ccnsuaer 21ectronic Show is going on as this issue is being mailed 
1 11 r9p °5 t on any finil Astro Vision developments next month. Rumors are 

o? W k SUC “ *? 1 P i ans t0 have five sasias out 111 Janu -i7. plus two mere by 
u^iy. ene of_these will be a Galaxian game, based on the arcade game. George Noses 
is helping with the MUSIC cartridge. Rumor also has it that the very-long-awaited 
price a tag? em0ry ad±Ltl ° n is at the FCC for a PP™val, and seems to Sve a $600 

£ITERACTIVE^(11PUTER0PERATI0N has finally been accomplished by two Bally owners. 

A tape program was loaded into one machine and transferred to the other through 
an amplifier. Then the users/machines alternated activities, transferring choices, 
etc., from one machine to the other. More details as I get then. 

SCREEN POSITION . I've had an occasional query about the control - or lack of 
control- of the horizontal position of the display. Has anyone come up with a 
method to move the display to the left about one character (above and beyond 
the TV's horizontal control)? 

BLUE RAM ENHANCEMENTS are discussed on pp 36 and 37. As you will read, a break- 
tnrougn nas been maae where now Bally BASIC programs can be stored in the Blue 
Ram, allowing the full use of the 4 k memory for Basic statements. It had been 
tnought earlier that only machine codes could be stored there, but this new 
technique now allows expansion of programs by all users, not just those adept 
at machine language. 

? r ? du ? t is the flectronics for a modem attachment. The modem (MCdulator- 
DEModulator) is a device that converts data pulses of the computer into audio 
tones understandable by the telephone system, and vice versa. These can be 

kl " d that you physically place the telephone handset into, or a kind 
that plugs into the telephone wall jack. Once you have tied into the telephone 
line, you can communicate with virtually any other so-connected computer. The 
electronics discussed o*p. 37 win wor k with the Livermore STAR, and may work 
with others. The major problem is lack of standardization of computer equipment. 
POPULAR COMPUTER DESCRIPTIONS are contained in Creative Computing, Dec.80. These 
are not feature-for-feature comparisons with good/bad points outlined, but indi- 
SaCh popular sterns. There is also a tabulated 

section that makes specification camparisons (memory size,price,etc.). Another 
article discusses sane of the various BASIC language dialects. 

INSTRUCTION PROGRAM Corrections were received from Steve Walters for his 
utility progra m, printed on p.20. The program to be loaded should read as follows: 

n£™? Ti . TV=1; PRINT ; PRINT ".PROGRAM TITLE", PRINT ".BY AUTHOR"- 

PRINT; LIST; PRINT; PRINT ".STANDBY FOR ",; PRINT ":RETURN; :INPUT 2" * 

When this is entered, the fourth line of the fourth paragraph, p.20, will read - 
.STANDBY FOR :RETURN; :INPUT 2 
A Byte-saving Hint 

If you have unused variables (A thru Z) _ you can set them equal to the recurring 
numbers in your program. This saves 1 byte each time a 2-digit number is used, 

2 bytes each time a 3-digit number is used, etc. Furthermore, since these 
variables can be set during the tape loading rather than as a part of the program 
content itself, it does not take any program memory space to set them. Since 
they are not affected by stopping and re-running the program, the procedure 
works nicely. 

c Robert Fabris, 1981 _ ^ -Steve Walters _ 
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THE SOURCE IS A SERVICE COMPRISING A VERY LARGE DATA BANK THAT 
CAN BE ACCESSED BY A COMPUTER HAVING A TELEPHONE CONNECTION. AS A 
SERVICE, THERE IS A ONE-TIME CONNECT CHARGE OF $100, WHICH PROVIDES 
YOU WITH THE ACCESS CODES AND LOCAL TELEPHONE NUMBERS TO GAIN ENTRY TO 
THE SYSTEM, LOCATED NEAR WASHINGTON, D.C. IN ADDITION, THERE IS AN 
HOURLY FEE FOR THE USE OF THE COMPUTER. ACTUALLY, THE MACHINE COUNTS 
MINUTES AND ADDS THESE UP TWICE A MONTH AND CONVERTS TO HOURS, THEN 
BILLS YOUR VISA,ETC. ACCOUNT. 

SO WHAT DO YOU GET? FROM THE COMPUTER HOBBYIST STANDPOINT, YOU 
CAN TALK BASIC, COBOL, OR FORTRAN TO IT. THEY ALSO HAVE THEIR OWN, 
CALLED INFO V, WHICH IS A DATA-TYPE OF SYSTEM, SUCH AS SETTING UP 
PAYROLLS, ETC. IF YOU WANT TO KEEP PROGRAMS IN THEIR MACHINE, STORAGE 
TIME IS AVAILABLE AT ABOUT $1 FOR ZK PER MONTH. 

A SORT OF WORD PROCESSOR IS AVAILABLE - I AM USING fIT FOR THIS 
SEGMENT - WITH CERTAIN EDIT FUNCTIONS, SUCH AS ERROR CORRECTION AND 
RIGHT MARGIN JUSTIFICATION. I HAVEN' T LOCATED ALL ITS CAPABILITIES 
YET. 


USER-TO-USER COMMUNICATION IS POSSIBLE ON THREE DIFFERENT LEVELS. 
1: BROADCAST - A BILLBOARD OR CLASSIFIED AD SECTION IS AVAILABLE, 
WHERE ANYONE CAN READ YOUR WORDS, LOCATED IN A CATEGORY THAT YOU CAN 
SELECT (HOUSE FOR SALE, CAR WANTED, SOFTWARE FOR SALE, ETC.) 2: 
INDIVIDUAL - ONE CAN WRITE MESSAGES, TO SPECIFIC PERSONS. WHEN THEY 
SIGN IN, THEY WOULD ASK FOR ' MAIL’ ,AND RECEIVE THE MESSAGES THEN. 3; 
FACE-TO-FACE - TWO PEOPLE CAN MAKE PREARRANGEMENTS TO BE ' UP' AT THE 
SAME TIME AND COMMUNICATE DIRECTLY WITH EACH OTHER. 


DATA BASE - A LARGE VOLUME OF THE COMPUTER MEMORY IS TAKEN UP WITH 
VARIOUS TYPES OF DATA. FOR EXAMPLE, AIRLINE SCHEDULES, STOCK MARKET 
QUOTATIONS, NEW YORK TIMES AND UPI REPORTS, JACK ANDERSON'S COLUMN, 
OVER 600 JTEMS. ft SMALL PART OF THE CATALOG IS SHOWN HERE. 


V> v 

V* 


c * 




* 






o 


0^° 

ov.'< 


The December issue of KILOBAUD MICROCOMPUTING has a good "how I did it" article 
on getting up on the SOURCE, p. 180. 

A phone call to 1-8OO-336-333O will indicate if there is a local telephone number 
available to you. Communities of less that 50,000 have not yet been provided with 
such numbers, but this keeps changing. 
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♦CRICKETS 


C 2 )♦ 


5 ♦SURF SOUNDS C1)♦ 

S IF &(235=8GOTO 11 

7 IF &(22 )=8G0T0 7200 

10 CLEAR ;:RETURN ;NT=0;&C215=0;&(225=0;&( IS)=71;&C175=0;&(IS)=0;&( 19)=0;&(20 ) 

=0;GOTO G 

11 FC=245;BOX 0,-20,160,48,3 

IS BC=7;&(235=179;&(185=150;&(165=50;&( 19 5=1 

20 BOX RND (160)-88,RND (305-44,RND (30),1,3;BOX RND C200 )-100,RND (285-44,30, 
3,1 

30 B=RND (ll)-7 
40 C=RND (45-3;IF C=0C=-1 

45 G=RND (3)-2;IF G=0G=-1 

47 IF H >23G=-(ABS(G 5 5 

48 IF H<23G=(flBSC G) ) 

50 P=RND (5 5+10 
60 FOR Q=1T0 P 

70 E=E+C;&(22)=E;IF E<35E=35 
75 IF E >41E=41 

80 D=D+B;&C18 )=D;IF D>254D=250 
83 IF D<150D=150 
100 H=H+G;&(21)=H;IF H<19H=19 
106 IF H>30H=30 
110 NEXT Q 

115 «(195=RND (35;&( 17 5=RND (7) 

120 GOTO 20 
7200 CLEAR 
7205 FC=12;BC=0 
7210 FOR A=1T0 60 

7220 BOX RND (1600-80,RND <88T-44,1,1,1 
7230 NEXT A 
7240 &C165=255 
7250 &(22)=40;&(215=15 
7260 &(20)=RND (505+10 
7270 &(23 5=RND (255 5 
7280 GOTO 7240 


Earry Ellerson 
8801 Golf Rd #3F 
Des Plaines, IL 60016 


2 . 

3 . 

4 .♦♦♦ CIRCLE PLOTTER 
B CLEAR ;:RETURN ;NT=0 
7 BC=0;FC=131 

10 INPUT “_ Xa“A 

11 INPUT '?Y'*B 

12 INPUT "RAD?"R 

13 U=1;0=1;P=1;Q=1 
| 15 F=A-R 

16 FOR X=FT0 F+2bR 

17 S=RbR-((X-A 5b(X-A 5 5;T=Uc4;IF T>Rc8T=U-l 

18 FOR U=TTO 500 

19 IF (UbU 5 >SGOTO 21 

20 NEXT U 

21 U=U—1;IF (S-UbU 5<((U+l5b(U+l5 5-SGOTO 23 

22 U=U+1 

23 Y=U+B 

24 BOX X,Y,0,P,Q;B0X X,Y-(2bU 5,0,P,Q 

25 BOX Y-B+A,X-A+B,0,P,Q 

26 BOX Y-B-(2bU5+A,X-A+B,0,P,Q 

27 NEXT X 

30 CY=40;GOTO 10 
110 GOTO 10 
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1 . 

2 . 

3 .GRANDFATHER CLOCK 

4 : RETURN ; CLEAR ; NT=0; &( 0 1=0 ;&( 1 1=0; BC=0;&( 2 1=131; &( 3 )=131; FC=234; &( 9 )=20; A= 
0;P=115 

5 PRINT "SET TINE*;INPUT "HR*H;INPUT “MIN'M;PRINT *#1 TO RUN 

6 IF &(231=8G0T0 8 

7 GOTO 6 

8 CLEAR 

9 17;CY=37;PRINT *11*;CY=39;CX=-3;PRINT "12*;CY=37;CX=14;PRINT *1 

10 CX=-23;PRINT * 10*,;CX=20;PRINT "2*;CX=-24;PRINT "9*,;CX=25;PRINT *3 

11 CX=-19;PRINT * 8 ",;CX=20;PRINT *4’;CX=-13;PRINT *7*,;CX=14;PRINT *5*;CX=0;CY 
=4;PRINT "8 

12 BOX 0,22,60,44,3;BOX 0,22,58,42,3;BOX 0,-22,41,44,1;BOX 0,-22 31 40 3 

13 BOX -35,-39,32,10,1;BOX 39,-39,32,10,1 

14 @C11=42;@< 21=53;@(31=47;41=71;@C 5)=71;61=47;@C71=42;@(81=53;@( 9)=42;@C1 
01=47;@(111=53;@C121=71 

15 @C131=71;@(141=42;@(151=47;@(1G)=53;G0T0 310 

20 LINE 0,0,4;LINE 10,-30,2;LINE 0,0,2;BOX 10,-33,5,5,2;LINE -10,-30,1; BOX -10 
,-33,5,5,1;RETURN 

21 LINE 0,0,4;LINE -10,-30,2;LINE 0,0,2;BOX -10,-33,5,5,2;LINE 10,-30,1;BOX 10 

,-33,5,5,1;RETURN ’ 

25 &( 22 )=0; &C 19 )=57; &( IG)=@(U);&C 17)=18;&( 18 )=2;&C22 )=188; &( 21 )=207; & nff )=58 
2G FOR B=1T0 11;&(22)=-lbB+Gl;&( 21)=-lbB+207jNEXT B 
27 &(. 211=195;&C 17 )=0; &( 21 )=194;&( 22 )=40; &( 21 >=193; RETURN 

29 U =0 ' 

30 FOR G=2T0 A 

31 U=U +1 

35 S=S+ 1 ;Q=Sc2;GOSUB RM+20;GOSUB 25;r=Uc4;IF RM=0P=40;GOTO 100 
37 GOTO 31 
40 NEXT G 

44 IF R#75P=115;GOTO 100 

45 P=70 
50 FOR G=1T0 H 

55 5=S+l;Q=Sc2;U=17;@CU)=6G;GOSUB RM+20;GOSUB 25 


60 GOTO 100 
70 NEXT G 
80 P=115 

100 &C21 )=0; &(22 )=0;&(16)=71;&C17)=8;&(19)=0 

101 S=S+1 

103 Q=Sc2;GOSUB RM+20 

105 IF S>59S=0 

10G CX=30; PRINT *3,S," * ,. 

1 10 &C18 )=< RM+3)b5;&(231=28;&( 211=213;&(221=51;&(211=0;&( 221=0 
112 IF S=0GOTO 200 

114 T=80;GOTO P 

115 FOR Z=1T0 T;NEXT 2 

116 GOTO 101 


200 M=M+1;IF M=60M=0;GOTO 300 
210 CX=-30;IF M<10PRINT "0*,#0,M, 
220 IF M>9PRINT #0,M, 

225 R=15;IF M=0R=75 


226 A=(M+Rlcl5;IF RM=0S=S+(Ab2 1;GOTO 29 

230 P=115;GOTO 100 

300 H=H+1;IF H=13H=1 

310 CX=-48;CY=-39;IF H<10PRINT * *, 

320 PRINT #0,H,;CX=-36;PRINT ’:*, 

330 GOTO 210 
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1 .COLOR CHRRT 


3 .BY JIM WINN 

4 . 

5 E=480;F=1250 

10 CLERR ;BC=0;FC=7;C=0;NT=0 

20 PRINT “ 0=BLRCK 7=WHITE 30=RED 205=C 

3=MRGENTR 

30 PRINT “ 249=BLUE 12G=YELL0W 

70 NT=3;CX=-60;CY=-20;PRINT ‘SELECT YOUR COLOR ?";NT=0 
80 K=KN(1 )c30 


172=GREEN 


8S CX=-42;CY=-30 
90 IF K=-4G0SUB 400 
100 IF K=-3G0SUB 410 
110 IF K=-2GOSUB 420 
120 IF K=-1GOSUB 430 
130 IF K=1G0SUB 440 
140 IF K=2G0SUB 450 
150 IF K=3GOSUB 480 
160 IF K=4G0SUB 470 
170 IF TR(1)GOTO 190 
180 GOTO 80 


960 GOTO 890 

970 CLERR ;IF (R=0)+(fl=7)+CR=90)+(fl=172) + CR=249)C=C+R 
980 C=C+JYC1) 

985 IF JYC1)CLERR Jim Winn 

990 IF 0255 C=255 BOX 9 8 

1000 IF C<0 C=0 Boiling Springs, NC 

1010 NT=0;BC=C;FC=B 28017 

1015 IF JYC1)=0CY=0SPRINT C;CX=3;CY=0;PRINT B 
,1020 IF JXC1 )=1&( 9 )=50; GOTO 10 
1025 IF JXC1 )=-lCLERR ;GOTO 820 
[1030 IF TRC 1 )=0GOTO 980 


190 CLERR ; IF CA=0J-w: A=7)+CA=43)+CA=90)+CA=12S)+CA=172>+CA=205) + CA=249)C=C+A 
200 C=C+JYC1) 


210 IF JYC1)CLEAR 
220 IF 0255 C=255 
230 IF C<0 C=0 
240 BC=C;FC=BC+12 
245 IF JYCI)=0CX=-35jCY=0;PRINT 
250 IF JXC1)=1G0T0 10 
255 IF JXCI)=-1 GOTO 800 
280 GOTO 200 
400 A=0;PRINT A;GOTO E 
410 R=90;PRINT A;GOTO E 
420 A=172;PRINT A;GOTO E 
430 A=249;PRINT fl;GOTO E 
440 fl=7;PRINT A;GOTO E 
450 A=205; PRINT A; GOTO ET 
460 A=43;PRINT A;GOTO E 
470 A=12S;PRINT A;GOTO E 
480 RETURN 
800 CLEAR ;&C9)=84 
810 &C0)=C;&C1)=C;B=C 
820 C=0;BC=0;FC=7;NT=0 


1040 BOX -40,20,40,20,1;B0X -40,-25,30,I,1;BOX -40,-25,1,30,1 
1050 &C 2 )=C; &C 3 )=C 

1080 BOX 40,20,40 ,20,1;BOX 40,-25,30,1 * 1;BOX 40,-25,1,30,1 


830 PRINT 
840 PRINT 
850 PRINT 
880 PRINT 
870 PRINT 
880 CY=-20;PRINT 
890 K=KNC1)c50+2 
895 CY=-30 
900 IF K=0GOSUB 1200 
910 IF K=1G0SUB 1210 
920 IF K=2G0SUB 1220 
930 IF K=3G0SUB 1230 
940 IF K=4G0SUB 1240 
950 IF TRC1 )GOTO 970 


0=BLACK 
7=WHITE 
90=RED 
172=GREEN 
249=BLUE";NT=3 

SELECT COLOR' 


1070 GOTO 980 
1200 A=0;PRINT A;GOTO F 
1210 A=7;PRINT A;GOTO F 
1220 A=90;PRINT A;GOTO F 
1230 A=172;PRINT A;GOTO F 
1240 A=249;PRINT A;GOTO F 
1250 RETURN 


Once you have this utility program 
on your tapes, you will be able to 
make a good assessment as to the 
colors to be used in a particular 
program you are developing. It starts 
out by asking for a general color 
area, and then it will step through 
the hues (using the joystick). When 
you find one you like, moving the 
joystick to the left will cause the 
- screen to split, and you can make 
your second choice on the left side. 
In this way you can easily see how 
the colors will look. And as you do 
this, the color numbers appear to 
identify them. 
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MORE.BLUE RAM BASIC. Since the last ARCADIAN was published, 
considerable progress has been made toward loading and running 
BASIC programs in the Blue Ram. Two separate approaches have been 
pursued, each with its own advantages and trade-offs. The first 
approach is along the line described briefly in the last ARCADIAN 
where CALLS are made to BASIC segments which are essentially line- 
extensions to the line containing the CALL. Line numbers as such 
are not used and special linkages are required to access a segment. 
(See ARCADIAN pages 15 and 16) An editor to assist in the entering 
and dumping of a Blue Ram BASIC program part is being sent free of 
charge to all Blue Ram owners in the form of a letter from Perkins 
Engineering. The letter contains a series of short programs to aid 
in writing and entering Blue Ram BASIC programs. The advantage of 
this programming approach is that the total program size can exceed 
6000 slightly. Its trade-off is in the careful planning required 
to plan and debug program segments in advance of entering them. 

The second approach is a "Cadillac" compared to the "bicycle" first 
approach. While the "bicycle" is more efficient in terms of 
available memory space for programs, the "Cadillac" has all the 
comforts of home. Just enter program lines into the Blue Ram as 
you would in normal memory. The procedure is as follows: 

1. Load the Blue Ram Operating System. The Blue Ram Operating 
System (1.0) is available on tape for $9.95 and provides the high- 
level linkages and support routines necessary to program both the 
normal and Blue Ram memory in a straight-forward, compatible way. 

2. Enter normal memory program lines as usual with line 
numbers followed by program statements. At the end of the normal 
memory segment, enter either a STOP statement to end processing, 
or a GOSUB nnn* statement to continue processing in the Blue Ram 
memory. 

3. Perform a CALL24576 statement (without a line number) to 
inform the Operating System that the following lines are to be 
entered into Blue Ram memory. The Operating System will respond 
with a BR> prompt. All program lines entered under the BR> prompt 
will be stored in Blue Ram memory. Use line numbers in the normal 
way except that Blue Ram line numbers must be higher than normal 
memory line numbers. Press GO without any statement to return to 
normal memory (and the normal > prompt). Lines may be entered or 
deleted at will in both memories and automatic line sorting occurs 
in both memories also. While in the Blue Ram mode (BR> prompt), 
the LIST statement will list the program lines entered into the 
Blue Ram. PRINT RM will display the remaining program memory 
available in the Blue Ram similar to the way PRINT SZ displays 
the remaining available normal program memory. 

4. Enter an RPLnnn/xxx/yyyy statement to edit a portion of 
an existing line. -RPL is a new command interpreted by the 
Operating System, nnn is any existing line number in either 
memory. / is a delimiter which may be any symbol not in the 
subject text. Which ever symbol is chosen must be used in both 
places in the statement, xxx is any text segment in the existing 
line (including the line number) which is to be replaced by the 
new text segment yyyy. Only the first occurrance of the existing 
text segment will be replaced. The old and new text segments need 
not be the same length and lack of a new segment is taken as a 
simple delete. 
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5- Program transfers to subroutines in Blue Ram memory are 
via GOSUB nnnn statements, where nnnn is the line number of the 
beginning of the subroutine. Variations of this statement are: 


GOSUB nnnn 


Performs a subroutine call in the normal 
way to both normal and Blue Ram memory. 


GOSUB nnnn* Equivalent to a GOTO nnnn when accessing 

Blue Ram memory. Illegal for normal memory. 

GOSUB nnnn** Equivalent to a return from the current 

Blue Ram subroutine followed by a GOTO nnnn. 
This statement acts as an abnormal exit from 
a subroutine and is illegal for normal memory. 

The GOSUB statement as applied to Blue Ram line numbers has been 
expanded in format to include parameter passing in the same 
statement. For example: GOSUB 3400,23,Q+N-5,"TEXT XXX";... is 
equivalent to: A=23;B=Q+N-5;C=(text address);GOSUB 3400. Each 
parameter following the object line number is automatically 
transfered to the letter variables beginning with A. Where a 
text string is a parameter, the memory address of the string is 
passed as the parameter. The called subroutine can then access 
the text string using the form. For example: 


1200 GOSUB 5000,"DATE",D 


5000 PRINT "ILLEGAL ",;F0R A=A TO A+15 >C=$(A)t256;TV=RM 
5010 IF C#34 NEXT A 
5020 PRINT " ",B 

Running line 1200 would print the following: ILLEGAL DATE 219 
assuming, of course, D had the value 219 in it. The parameter 
passing can be used in conjunction with the asterisks to form 
some very versatile subroutines and other program segments. 


THE BLUE RAM COMMUNICATIONS INTERFACE will be available January 
15 for connection of the Blue Ram with keyboard to a Livermore 
STAR modem for communications with other ARCADIANS and other 
computers. The basic kit is $69.95 including all parts, program 
tape, and documentation. An optional port for the BASE2 800B 
printer is also available for $10.00. This printer can be bought 
for about $600.00 and features a programmable font and graphics. 
The programmable font allows the use of the Bally character set 
including multiply and divide signs and the graphics allows the 
printing of what is on the screen (literally). The interface is 
also available wired and tested for $99*95 including the printer 
port. A special package price of $299.95 includes the interface 
kit, a STAR modem, a special Source communications software 
package, and membership in the Source. This package represents 
a $50.00 savings and is available only to ARCADIANS. The special 
Source communications package features a smaller character set 
allowing 40 characters on a line and 14 lines of text. Other 
features include: Auto carriage return to prevent lost mail text, 
auto CNTL-S - CNTL-Q to hold one page of text until it is read, 
bell character, send and receive characters in different colors, 
and more...all tailored to the protocol of the Source. By itself 
this program is $19.95- 


I can supply the BASE 2 printer at $600., and a membership in The SOURCE 
at $100. California residents add tax to these and the above prices. 
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CASSETTE REVIEW Date: 8/30/80 

CASSETTE NAME: Program Tape #1 

PROGRAMS ON CASSETTE: Space Cattle 9.0; Bombardment 2.0; Bullseye 2.0; 
Startrek III 11.2: Chase III 1.0 

CASSETTE PRICE: $10.00 LISTING PRICE: Not Avaliable 

SOURCE Name: Mark Keller 

Address: 9536 Shumway Drive 

City: Orangevale State: CA ZIP: 95662 

Reviewed by Bill Rueger Age 31 
PROGRAM NAME: Space Battle 9.0 

DESCRIPTION: You must shoot down the UFO. You have a 1Imited amount of 
time and ammo In which to get the UFO Into your gunsight and fire. The UFO 
becomes more elusive as your aim gets better. Unfortunately, this game is 
very similar to others and not as sophisticated. 

RATING % based on applicable rating Items. 41/ 72= 56.9% 

PD= 8 PP= 5 USF= 5 LC= 5 0C= 5 LI= 4 EV= XX EU= 5 0V= 4 

Time to play 5 min For ages All # of players 1 

PROGRAM NAME: Bombardment 

DESCRIPTION: A grid of numbers Is presented and you must pick out four 
of them as your "forts". The computer also has a similar grid and It picks out 
four also. You alternate with the computer In trying to guess which locations 
are chosen by use of the hand controller. The first one to guess them all is 
the winner. Not a very exciting game and tiring after a few rounds. 

RATING % based on applicable rating items. 44/72 = 61.1% 

PD= 7 PP= 7 USF= 6 LC= 4 0C= 5 LI= 3 EV= XX EU= 7 0V= 5 

Time to play 3 mln^ For ages All # of players 1 

PROGRAM NAME: Bullseye 

DESCRIPTION: A dart game. No graphics, but a choice of three "throws", 
each with a different set of odds. It allows for up to 2J3 players to play, but 
unfortunately, it Is not a very exciting game. 

RATING % based on applicable rating items. 53/72 = 73.6% 

PD= 0 PP= 7 USF= 7 LC= 6 0C= 6 LI= 6 EV= XX EU= 7 0V= 6 

* T,m ® to P 1a y 5 «1n* For ages all # of players 1 to 20 

PROGRAM NAME: Star Trek III 

DESCRIPTION: THE BEST THERE ISM This Is a real time version. It 

Incorporates ALL the features of the 16K-plus versions. Kllngons actually 
move in the Quadrant you are In. When moving, they can utilize a "cloaking 
device whlcn make them temporarily invisible. When you f1 re a phasor or a 
photon torpedo, you see It move on the screen. Five commands are available 
Including direction and energy unit designations. You travel in a 9x9 universe. 
This Is definitely the best Star Trek available for the BALLY. It's really 
ingenious how so much can be crammed Into 1.8K. If you're into Startrek, this 
is the one for you. Worth the price of the Tape alone! 

RATING % based on applicable rating Items. 71/72 = 98.6% 

PD= 8 PP= 9 USF= 9 LC= 9 0C= 9 LI= 9 EV= XX EU= 9 0V= 9 
Time to play 30-60 min. For ages All # of players 1 


PROGRAM NAME: Chase 

DESCRIPTION: Robots are out to get you. Similar to "BOTS" already 
published In the ARCADIAN, but you are able to pick the number of robots and 
and also the number of walls. The playing field is also larger. This is a 
challenging and fun game. 

RATING % based on applicable rating Items. 58/72 = 80.6% 

PD= 8 PP= 8 USF= 8 LC= 7 0C= 6 LI= 7 EV= XX EU= 7 0V= 7 

Time to play 5 min. For ages All 3 of players 1 
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4 .RLCHEMISYMMETRICRL ART 

5 CLERR RETURN ;NT=0;&(10)=173;GOTO 20 

10 FOR N=1T0 G 

11 X=X+(HbQ);Y=Y+(IbR );R=R+(JbS);B=B+(KbT);U=fl-(JbS);U=B-(KbT);LINE U U 4'L 
X,Y,F;LINE R, B, E 

12 LINE -U, -<J, 4; LINE -X,-Y,F;LINE -R, -B,E;LINE -U,U,4;LINE -X,Y,F;LINE -R B 
LINE U,-0,4;LINE X,-Y,F;LINE R,-B,E;NEXT N 

20 L=RND (3)+15;BC=RND (32)b8+RND (3)-l;FC=BC+RND (32)b8+RND (4)+l;C=RNB (5 
;M=M+1;IF C=0C=2 

30 0=BC+RND (32)b8;P=FC+RND (32)b8;&(0)=0;&(1)=0;&(2)=P;&(3)=P;IF M>1BC=2;M 
FC=RND C 32)b8+(2bC)+2;&(9)=50;GOTO 50 

40 GOSUB L+25;GOTO 50 

41 &(3)=148;RETURN 

42 &( 9)=20; RETURN Earry Ellerson 

43 &( 8)=20;&(0)=BC;&(1)=BC;RETURN ^°lf Rd. #3F 

50 Q=RND (5) -1;R=RND (5)-l;S=RND (5)-l;T=RND C5)-l Ces ? ^- aines » IL 60016 

80 G=RND (20)+5;F=RND (4);E=RND (4);IF F=4F=1 

70 H=RND (3)-2;J=RND (3)-2;K=RND (3)-2;IF E=4E=2 

80 I=RND (3)-2;IF E>1IF F=3F=2 

80 IF (RBSC R ) )-X>50fl=0;BC=144;&(0)=144;&(1)=144;FC=RND (32)b8+RND (4)+l 
100 IF C RBSC X) )-R>50X=0;BC=128;&(0)=128;&(1)=129;FC=RND (32)b8+RND C4)+l 
110 IF CRBSCB) )-Y>30B=0;BC=224;&<0)=224;&(1)=224;FC=RND C32)b8+RND (4)+l 
120 IF (RBSCY))-B>30B=0;BC=0;&(0)=0;&(1)=0;FC=RND (32)b8+RND C4)+l 
130 IF (RBS (GblbR+Y))>38G0T0 50 
140 IF (RBS (GbKbT+B))>35G0T0 50 
150 IF (RBS (GbJbS+fl))>78G0T0 50 
160 IF (RBS (GbHbQ+X))>72G0T0 50 
170 GOTO 10 


MEMORY EXPANSION 

A motherboard/bus system is one in which a printed circuit board (motherboard) 
contains a number of connectors that are wired in parallel. Option items are contained 
on "cards" which plug into any of the connectors. To tell the computer which option 
you want, you have to give it some sort of address, such as "USE SLOT 3". We now 
have the first multi-option expandable bus system in the final stages of production, 
and next month's issue will have the details. The basis for this new system is a 
metal cabinet with a 5-slot motherboard, a bus cable connector, fuze protected power 
supply, and on/off switch with indicator lamp. Once you have purchased this unit, 
you can buy any or all of the below options - when plugged in they are ready to go. 

Options to be available next month will be : 

1. 16K memory board. 

2. High speed cassette interface at 2400 baud with dual cassette capacity. 

3. Additional 5-slot bus expansion unit. 

4. 2K EPROM board with IK operating system monitor included. Allows keyboard 
and tape input without Bally BASIC language. 

5. 53 key ASCII encoded keyboard with cable and connector. 


Alternative Engineering, having some problems with mail delivery at the I Gilbert 
Drive address, have moved to a postal box- P.0. Box 128, Gardiner, ME. 04345. I 
have been using their power supply ($25, see ad p 106) for some time now and’am well 
pleased with it. Really heavy duty, professional in appearance, and runs cool . 



ADS: 

• For Sale: Computer Ear-Complete with software & instruction manual $45. 

Mike Maslowski,9 Arthur Ave. Clarendon Hills,IL 60514 312/654-8937 

• Hand Controllers Repaired; Bill Mead,7531 Chile, Euena Park CA 90620 

BALLY/ASTROVISION SOFTWARE and HARDWARE SOURCEBOOK 

Included In this Sourcebook are descriptions and source Information on 
over 230 Software and Hardware Items. The Software Is Indexed by Program Name, 
Type of Program and Program Source. The Hardware Is Indexed by Hardware Item, 
Hardware Classification, and Hardware Source. This Sourcebook of 50+ pages Is 
available for $ 5.00 from Richard M. Houser 

635 Los Alamos Ave. 

Livermore, CA 94550 


* Software from Steve Walters, 556 Langfield, Northville, MI 48167 (313)349-1083 
Each listing $2.00; all four listings for $5.00, or with tape for $10.00. 

(1) MEMORY MAZE; study the maze, then try to move thru it while it is invisible. 
Program generates new maze each game. For 1 or 2 players, 3 levels of 
difficulty, scoring, sound effects and music. 

(2) BLACK BOX; find 5 balls hidden in the box by sending probes into the box 
and seeing where they come out. Like the Parker Brothers game but with 
full hand-control operation and screen feed-back (no notes to keep while 
playing). Scoring, 1 to 4 Dlayers, sound effects. 


(3) CRAZYFACE: Bally draws a cartoon Chinaman, football player, witch, singe 
and mountie. Then Crazyface lets you mix the hats, eyes, noses, mouths 
and necks to create your own crazy faces. 

(4) HIDDEN WORD FINDER: manipulates a hidden word puzzle (like the ones fro” 
school that your kid asks you to find the one last word in!) so that the 
hidden words can be easily spottpd. You may even find words that the 
puzzle designer didn't notice! 


USER GROUP CORNER The Chicago Area Users Club has settled on monthly meetings, 
the third Sunday of each month at the de Vry Technical Institute, 3300 North 
Campbell, Chicago. Call Mike Maslowski, 312-654-8937* Late notes from them 
indicate interesting guests coming up in January (AstroVision representative) 
and February (Jay Fenton, Bally programmer) 

In the Milwaukee area, Doug Alexander, 2911 Parkshire Dr, 
Racine; 414-886-5973 would like to communicate with local subscribers. 

In the Long Island area, Bill Rueger,336 Beach 38 th St., 

Far Rockaway would be interested in getting together with locals. 


NEW BASIC LANGUAGES 

1. Astro Vision is planning an updating of the Bally BASIC which will primarily 
allow data transfer at a 2000 baud rate, about 7 times faster than now possible, to 
and from tape. This will probably require a pretty good tape recorder to handle the 
high rate. There will be little change in the BASIC language itself. 

2. Extended BASIC, first mentioned on p. 78 of Vol. 2, is close to completion. 
Delays have resulted from our attempts to make the unit compatible with both the 
Blue Ram and the Alternative Engineering expansion mentioned on p.39. This technique 
is pretty unusual in the microcomputer business where incompatibiiiLy is the norm. 
The BASIC will be contained in 8K. 


ARCADIAN 40 

Robert Fabris, CES observer 
The SOURCE TCD 959 
3626 Morrie Dr. 

San Jose, CA 95127 




Volume 3 Number 4 


February 7,1981 


<RRCRDinrS 



ASTPCVTSTOU «,UD-r>! is called " ZGRASS-32 COMPUTER KEYBOARD ", and was shown 
at the Consumer Electronic Show at Las Vegas a month ago. The box, layout of 
parts, etc., is essentially the same as the one shown by Bally and illustrated 
on p. 29 of Vol 1. The shown sample was all black, and had an arcade unit 
resting on its upper surface.- What's inside? The foilwing data is taken from 
a publicity sheet handed out: 32K more RAM, 24K more ROM, the keyboard, and 
the ZGRASS language. Cost?-$599* Delivery?-well..I heard 'manufacturing in 
June' twice, so we'll see. More details... 

Language used is Dr. DeFanti's ZGRASS, a graphics-oriented BASIC. A description 
of the language and its unique commands are contained in Vol 1, pages 11 - 14, 
and 37* The ZGRASS is contained in the 24K RCM, along with a 'scientific math 
system'. It gives four colors anywhere on the screen, which is configured at 
160x100 pixels. The prime direction for ZGRASS is for the development of 
graphically exciting programs, whether they be games, video art, pie charts, 
or whatever. The beginnings were included in the basic arcade unit, with the 
commands LINE and BOX. New commands will be POINT and CIRCLE. Arrays will 
be multi-dimensional. There will be interpreted and compiled modes. The 
extended math package is floating point with trig & log (e and 10) functions, 
and square root. 

PLANNED EXPANSIONS to the keyboard unit include: 

32K more RAM 

TV PRINTER - hard copy of what is on the TV screen ( a scan is made of 
the screen and a print made of it.) 

LIGHT PEN 

BIT PAD DIGITIZER - a worksheet is electrically attached to the computer 

and a wand is touched to the pad. A dot appears on the screen at the same 

relative point. Drawings can be transcribed to the screen(=computer) and 

the coordinates of all the points are now in memory 

DUAL CASSETTE CONTROL at 1800 baud, motor of cassette is computer- 

controlled. 

DISC STORAGE - a connector is included. 

SLIDE COPIER 

SOUND SYSTEM - connection to audio amplifier input 
More details on the above as they are discovered. One of the reasons for the 
CSS was contact with dealers/distributors, to show the line, and sign up as 
their plan dictates. Quite a bit has to be regenerated from the old Bally days, 
as well as expansion beyond those levels to get nation-wide coverage. Regard¬ 
less, if you are not able to find one in your area (after June,etc.) let me 
know and we'll handle it by mail order. 

NEW GAME VIDEOCADES : Here is the lineup of the first batch - which 
are now scheduled for March 

2011 GALACTIC INVASION / 2012 SPACE FORTRESS / 2014 GRAND PRIX-DEM0LITI0N 
DERBY / 4003 MUSIC MAKER 1 / 4004 BI0RYTHM 

USSR GROUP REPORT The CACHE group indicate that they now have a file of 50 
programs in their software library. A reference library of printed material 
(hardware-oriented) is also being set up for the group. It was reported that 
REX TV has opened a new Bally service center at 18666 S. Dixie Highway, 
Homewood, IL 779-7800 

LISTED PROGRAMS have a number of small letters in them, because my COMPRINT 
does not have some characters. Therefore, you have to make a little conver¬ 
sion, as follows: a = right arrow > b = multiply x c = divide ~ 

© iq<3l 'H.U Fa^r?s _ , _ 




MI EXCELLENT TUTORIAL on Machine Language programming - getting seme of the 
basics down - was printed in the November Kilobaud MICROCOMPUTING, p«70. 

I'd say it was a medium-level description that tcught me quite a lot and will 
be used as a reference in later operaticns.lt explains seme of the descrip¬ 
tive codes used ( like 8B CA etc). While the article specifically deals 
with the 6802 processor, the ideas as well as some specifics also fit the Z80. 

BLUE RAM OPERATING SYSTEM (1.0) arrived the other day, and it has two very 
useful features: 1. It allows EDITING of line statements, using a new RPL 
command (RePLace). You can either fix a line by adding, deleting, or changing 
something in the line, or you can change the line number from one value to 
another. People send in programs on tape, and sometimes the transfer to the 
Bally is not correct (usually a long line) and making the correction is a 
pain. But now I've used the 1.0 system, and I can easily make the necessary 
change. Especially since I've loaded the keyboard routine as well. All one 
needs to do is enter PPL (line number)/(old word)/(new word) RETURN or GO, 
and its done. 2. It allows the storage of 3800 Bally BASIC bytes in the 
Blue Ram. ((NOT machine language, but good ol'EB)) This opens up the world 
to those of you who aren't too keen on machine language, because all you have 
to do is follow a few simple rules, and keep writing programs in BB. In essence, 
there is a divider built in, all program lines below 1999 go into the old 
Basic storage areas, while material in line numbers above 1999 go into the ER. 
One can shift back and forth between the two areas. So now there are 5600 
bytes available - lets see seme programs that take advantage of that space. 

ALTERNATIVE ENGINEERING is proceeding with the design and construction of the 
motherboard memory addition. They report that a small rearrangement has taken 
place, in that seme previous options are now included in the basic package, 
resulting in about a month's delay. The prime package will include a power 
supply capable of handling all accessories, p.c. board and connectors, seme 
onboard intelligence to control things, plus some other goodies. The two 
prime accessories will be the memory package and the keyboard package. Other 
units are also under consideration. Full details are due in the announcement 
which I plan to have in the next issue. 

EXTENDED BASIC language is moving along smartly - current plans are to provide 
both tape and ROM versions so you can choose the format that suits you best. 

A little preview of the new commands follows: 

CIRCLE / POINT / NEW (erases program) / DATA (provides initialization of 
variables in a shorter manner) / ZERO (sets all variables to zero) 

In addition to the usual FC and EC, two more foreground colors are available 
in FA and FB. 

There are commands available for storing and retreivir.g programs, or just 
bits of programs. 

Two windows can be generated on the screen, and their size limits controlled, 
for both graphics and characters. 

How about a 3x5 character set available at CF=SMALL ? 

And it will automatically convert to a hex number base with the ! character. 
SCROLL will roll the screen up or down a specified number of lines. 
y in front of a variable will give its memory location. 

That ought to whet ycur appetite - we'll have more information as it becomes 
available, including delivery and cost, in subsequent issues. 
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The following tutorial was written 
by Bob Wiseman, and details some of 
his programming 'tricks 1 , explaining 
why. 


PART I. HOW TO KEEP IT SMALL. 


WHEN YOU PROGRAM THE ARCADE .. YOU HAVE A GRAND TOTAL OF 1. SK 
OF USER MEMORY AVAILABLE FOR PROGRAM AND STRING DATA. THIS IS SELDOM 
ENOUGH. WHENEVER I PROGRAM THE ARCADE, I WRITE THE PROGRAM ON 
PAPER FIRST. THIS ALLOWS ME TO CALCULATE MEMORY 
REQUIREMENTS EARLY SO THAT I CAN HEAD 'EM OFF AT THE PASS. 

I STRUCTURE THE PROGRAM INTO MODULES WHENEVER POSSIBLE. I WRITE 
EACH MODULE ON A SEPARATE SHEET SO THAT I CAN REWRITE A SINGLE 
MODULE WITHOUT AFFECTING ANYTHING ELSE. HAVING A PENCIL 
COPY OF A PROGRAM IS AN INVALUABLE AID WHEN SEARCHING FOR THAT 
ELUSIVE BUG. 

SO, I WRITE THE PROGRAM ON PAPER, AND THEN I ADDUP THE MEMORY 
NEEDED. I HAVE 1800 BYTES TO START WITH. 

COUNT THE FOLLOWING: 

3 BYTES PER LINE FOR STORAGE FOR THE LINE NUMBER AND 
CARRfcGE RETURN. 

1 BYTE PER KEYWORD. THE WORDS PRINT, LIST, GOTO, LINE, 

FOR, TO, NEXT, STEP, GOSUB, RETURN, BOX, INPUT 
IF, AND RND ALL TAKE ONE BYTE. 

1 BYTE PER PUNCTUATION. THESE SPECIAL CHARACTERS TAKE 
ONE BYTE: COMMA, PERIOD, QUOTE, EXCLAMATION, 
PARANTHESIS, EQUALS, POUND SIGN, ETC.. 

1 BYTE PER ALPHABETIC LETTER. EACH LETTER, WHETHER USED 
AS A VARIABLE OR USED IN QUOTES, COUNTS 1 BYTE. 

ITEMS LIKE CX, BC, AND NT HAVE TWO LETTERS AND SO 
THEY COUNT TWO BYTES. 

SPACE COUNTS ONE BYTE. 

1 BYTE FOR EACH NUMBERIC SYMBOL NOT BEGINNING A LIME. 

HERE ARE SOME EXAMPLES: 

10 GOTO 10 (COUNTS 6 BYTES) 

20 PRINT "ABC (COUNTS 8 BYTES) 

300 IF A=RND (3)GOTO 400 (COUNTS 14 BYTES) 

IN ADDITION TO THE MEMORY USED IN YOUR PROGRAM, YOU MAY 
NEED TO PROVIDE SPACE FOR STRINGS OF DATA. I AM REFERRING TO 
THE USE OF THE AT-SIGN TABLE TO STORE DATA. EACH TAKES TWO BYTES. - 
SO IF YOU USE @<0), ©(1),... , ©<9), THEN YOUR PROGRAM MUST 
LEAVE TWENTY BYTES FREE. 

THE FOLLOWING SHORT PROGRAM: 

10 FOR A=0T09:<£J( A)=0: NEXTA 

WILL TAKE 19 BYTES TO STORE, AND AN ADDITIONAL TWENTY BYTES 
WHEN IT IS RUN FOR STORAGE OF THE DATA. 

- A3 - 
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NOW THAT WE KNOW WHERE THE MEMORY GOES, WE SHOULD BE ABLE 
TO USE IT MORE EFFICIENTLY. THESE GENERAL RULES MAY HELP. 

1) COMBINING SHORT LINES TOGETHER HELPS REDUCE THE THREE 
BYTES PER LINE OVERHEAD. 

2) ELIMINATE UNNECESSARY SPACES. THE ONLY TIME THAT A SPACE 
IS REQUIRED BY BALLY BASIC IS TO SEPARATE TWO VARIABLES. 

FOR EXAMBLE: 

10 IF A=CGOTO 10 (NO SPACES REQUIRED) 

20 IF B=D E=F (SPACE REQUIRED TO SEPARATE D AND E) 

3) USE VARIABLES TO REPLACE OFTEN USED, LONG NUMERIC VALUES. 

THIS CAN BE ESPECIALLY VALUABLE FOR LINE NUMBERS. 

EACH TIME YOU USE THE NUMERIC VALUE 3210 (FOR EXAMPLE), YOUR 
PROGRAM IS FOUR BYTES LARGER. IF YOU SAY "T-3210" THAT COSTS 
SIX BYTES. IF YOU NEED TO REFER TO 3210 MORE THAN TWICE 
(AND YOU HAVE AN AVAILABLE VARIABLE OF COURSE) YOU CAN 
SAVE MEMORY. 

EXAMPLE: 

10 IF A=3210B=B+1 5 T=3210 

20 IF B=3210C=C+1 10 IFA=TB=B+1 

30 IF C=321OGOTO10 20 IFB=TC=C+1 

30 IF C=TG0T010 

THE PROGRAM ON THE LEFT TAKES 15+15+13= 43 BYTES. THE ONE 
ONE THE RIGHT TAKES 9+12+12+10= 43 BYTES. THE ONE ON THE 
RIGHT RUNS FASTER. IF WE HAD PUT "T=3210" ON LINE 10, THEN 
THE RIGHTHAND PROGRAM WOULD BE SMALLER ALSO. 

4) OMIT TRAILING QUOTATION MARKS. LINE TEN AND TWENTY WILL 
PRINT THE SAME THING. 

EXAMPLE: 

10 PRINT "ABCDEF" 

20 PRINT "ABCDEF 

5) DO NOT BE AFRAID TO RE-WRITE. FIRST, YOU WRITE WHAT WORKS. 
NEXT, YOU WRITE WHAT WORKS BETTER. FINALLY, YOU WRITE IT 
SMALLER. 

EXAMPLE: SUPPOSE WE HAVE REACHED A POINT IN THE PROGRAM WHERE 
WE HAVE A ZERO OR A ONE IN VARIABLE "A". IF ONE, WE 
WANT TO CHANGE "A" TO A ZERO. IF ZERO, WE WANT TO 
CHANGE "A" TO A ONE. SO WE FIRST WRITE THE OBVIOUS: 

100 IF A=OA=l:GOTO120 
110 A=0 

120 ...CONTINUE 

THIS WORKS AND IT TAKES 15+6= 21 BYTES. FURTHER 
HEADSCRATCHING AND THE MEMORY BULB LIGHTS Up: 

100 A=l—A 

THIS TAKES A MERE 8 BYTES AND DOES THE SAME THING. 

I HAVE OFTEN DISCOVERED THAT FINDING A SIMPLE ALGEBRAIC 
FORMULA WILL SAVE MANY BYTES. THE DIFFICULT PART 
IS FINDING THE FORMULA. 
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6) USE SUBROUTINES WHENEVER POSSIBLE. ANYTHING THAT YOUR 
PROGRAM DOES MORE THAN ONCE SHOULD BE IN A SUBROUTINE. 
WHEN YOU BREAK UP A PROGRAM INTO SUBROUTINES IT BECOMES 
EASIER TO DEBUG BECAUSE THE SUBROUTINES CAN BE TESTED 
INDEPENDENT OF THE REST OF THE PROGRAM. DRAWING A SHORT 
FLOWCHART (HORRORS!) BEFORE BEGINNING CODING IN BASIC 
WILL HELP ORGANIZE YOUR THOUGHTS ABOUT WHAT SHOULD BE 
A SUBROUTINE. SUBROUTINES HELP AVOID REDUNDANT CODE, 

AND THIS KEEPS IT SMALL. 


PART II. MAKING IT RUN FASTER. 


THE BEST TIME TO MAKE A PROGRAM RUN FASTER IS BEFORE YOU 
HAVE WRITTEN IT. AFTERWARDS, THE CHANGES MAY BE TOO DIFFICULT TO 
MAKE AND DEBUG (SORT OF LIKE ADDING AN EXTRA BATHROOM ON THF 
SECOND FLOOR AFTER THE HOUSE HAS BEEN BUILT). THE GENERAL 
RULE I HAVE FOLLOWED IS: 

(OTHER THINGS BEING EQUAL) THE FEWER BYTES BALLY BASIC 
HAS TO INTERPRET THE FASTER THE PROGRAM RUNS. 

THIS EQUATES TO PART I. IN GENERAL, THE SHORTER A PROGRAM, 
THE FASTER IT RUNS. I HAVE RUN A FEW SHORT TIMINGS AND THEY 
SEEM TO FOLLOW THIS RULE. REMEMBER OUR EXAMPLE WHERE WE REPLACED 
THE VALUE 3210 WITH THE VARIABLE "T". THE EXAMPLE ON THE RIGHT 
RUNS FASTER BECAUSE BASIC HAS FEWER BYTES TO INTERPRET. 

HERE IS AN EXPERIMENT FOR YOU TO PERFORM. WRITE THE 
BASE PROGRAM AS FOLLOWS: 

10 FOR A=0 TO 3000 
90 NEXT A 

RUN THIS AND TIME ITS EXECUTION WITH A WATCH. RECORD THIS 
TIME. NOW TRY INSERTING DIFFERENT LINES INTO THE CENTER AND SEE 
HOW THIS AFFECTS THE TOTAL RUN TIME. I FOUND THIS TO BE QUITE 
INTERESTING. IF NO GRAPHICS ARE INVOLVED, I FOUND THAT THE 

ex/tra execution time was almost directly proportional to the 

EXTRA NUMBER OF BYTES INTERPRETED. USE EACH OF THE FOLLOWING 
AND SEE HOW THEIR TIMES COMPARE. 

20 B=A (6 BYTES) 

20 B=12345+1 (12 BYTES) 

I FIND THAT BOX AND LINE REQUIRE MORE TIME PER INTERPRETED 
BYTE THAN NON-GRAPHIC COMMANDS. 

IF YOU CANNOT MAKE IT RUN FAST, YOU MIGHT AS WELL MAKE 
IT ENTERTAINING. TRY TYING SOME OF YOUR VARIABLES TO 
THE SOUND SYSTEM INPUTS. A MUSICAL DIVERSION WILL 
LET THE OPERATOR KNOW THAT THE PROGRAM IS STILL WORKING, 

AND HASN'T DROPPED DEAD OR FOUND A LOOP. 
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4 .GOLF * ^<< 4 / — 

5 .BY BOB HENSEL T ''Ss^4^ 

100 FOR Z=1T0 N; @( Z)=0;NEXT Z;B=0;FOR H=1T0 9;G0SUB 3600 
102 FOR P=1T0 N;U=0;J =8 

104 IF P=1G=13+RND (50);I=15+RND (15 );T=13+RND (50 );R=13+RHD C50);S=13+RND C50 ) 


105 CLEAR ;GOSUB 1000;Y=-16;GOSUB 1100;T=T+18;GOSUB 1100;T=T-13;Y=0;GOSUB 1200 

106 Y=10;GOSUB 1300;E=40;F=-41;BOX E,F,1,1,1 

142 LINE 3,-43,4;LINE 3,43,1;LINE 79,43,1;LINE 79,-43,1;LINE 3,-43,1 
144 PRINT " HOLE #",#1,H;PRINT * PAR ",#1,105," “,#1,Ib20,“YD 

146 W=RND C4);M=(RND C6 )-I)b5;PRINT “ WIND:",;TU=93+W;PRINT #3,M,"MPH", 

147 CY=8;CX=-71; PRINT "PLAYER SCORE", „ , 

M8 CX“-SE;CY“0;PRINT .l.P.W.U £28 Seaside Ave.. S. 

152 X=2;Y=2;GOSUB 800+A 

153 LINE -40,-20,4;BOX -40,-20,60,30,2;BOX -40,-20,2,2,1;LINE Xb7-40,Yb7-20,1 

155 C=C+JY(1);IF C>9C=1 

156 IF C<1C=9 

170 CX=-71;CY=-40;PRINT "CLUB:*,#1,C,;IF C=1PRINT * WOOD",;GOTO 180 
172 print " iron". Golf is a game of skill for 1 to 4 

180 IF trc l )=0GOTQ 150 players. The computer generates 9 dif- 

200 u=u+i ;nt=10;mu=C;nt=0 ferent holes each game, randomly placing 

202 IF j=igoto 3100 each green and hazards such as trees, 

205 for Z=1T0 2b(10-c) water,or sand traps. Each player selects 

210 if z#iigoto 219 the. directi on the ball will travel by 

212 d= 0 ;if m>5D=i moving JX(1) until the rotating line 

214 if w=iy=y+d points in the proper direction. The dis- 

216 if w=2X=x-d tance is dependent on the club selected 

217 if w=3Y=Y-D using JY(1) . Remember the flight of the 

218 if w=4X=x+d ball is affected by the direction and 

219 e=e+x;f=f+y;box E,F, 1,1,3 velocity of the wind. 

220 IF E>3IF E<79IF F<43IF F>-43J=0;GOTO 240 


, #1,C,;IF C=1PRINT " WOOD",;GOTO 180 
Golf is a game of skill for 1 to 4 
players. The computer generates 9 dif¬ 
ferent holes each game, randomly placing 
each green and hazards such as trees, 
water,or sand traps. Each player selects 
the. direction the ball will travel by 
moving JX(1) until the rotating line 
points in the proper direction. The dis¬ 
tance is dependent on the club selected 
using JY(1). Remember the flight of the 
ball is affected by the direction and 
velocity of the wind. 


240 IF E>G-9IF E<G+ 8 IF F>I-SIF F<I+8J=1 
250 IF J=0IF PXC E,F)=0GOTO 4000 


NEXT Z 

IF J=1G0T0 3000 
GOTO 148 
Y=0;RETURN 
Y=l;RETURN 
RETURN 
X=l;RETURN 
X=0;RETURN 
X=-l;RETURN 
X—2;RETURN 
X=-2;Y=1;RETURN 
X=-2;Y=0;RETURN 
X=-2;Y=-l;RETURN 
X=-2;Y=-2;RETURN 
X=-l;Y=-2;RETURN 
X=0;Y=-2;RETURN 
X=l;Y=-2;RETURN 
Y=-2;RETURN 
Y=-l;RETURN 

BOX G,1,4,12,1;B0X G,I,10, 
BOX T,Y,2,10,1;BOX T,Y+2,4 


HOLE 3 
PAR M HIOYD 

WIND:f 5MPH 
Pi.AYER SCORE 

g] IS 

CLUB: 8 IRON 


GOLF. 


10,1;BOX G,I,14,8,l;BOX G,I,16,4,1;RETURN 
,2,1; BOX Tj-Y, 6 ,2,1; BOX T, Y-2, 8 ,2,1; RETURN 





GOLF (continued) 

1200 BOX R,Y,2,18,1;BOX R,Y,S,14,1;BOX R,Y,10,10,l;BOX R,Y,14,G,1;BOX R,Y,18,2,1 
;RETURN 

1300 BOX S,Y,12,5,1;RETURN 

3000 BOX 41,0,78,37,2;BOX 41,0,18,48,1;BOX 41,0,40,40,1;BOX 41,0,56,32,1;BOX 41, 
0,72,16,1 

3010 K=20+RND (36);L=RND <16)-8;B0X K,L,3,3,2;E=41+CE-G)b4;F=(F-I)b4;BOX E,F,1,1 
,3;BOX 41,0,79,84,3 

3015 IF ABS( E-K K2IF ABSC F-L X2G0T0 3500 

3017 GOTO 148 

3100 FOR Z=1T0 2b(10-C) 

3110 E=E+X;F=F+Y;BOX E,F,1,1,3 

3120 IF ABS(E-KX2IF ABSC F-L K2G0T0 3500 

3130 IF E>3IF E<79IF F<43IF F>-43G0T0 3140 

3135 GOTO 4000 

3140 NEXT Z;GOTO 148 

3500 CY=0;CX=30;PRINT "SUNK!";@CP)=@(P)+U 
3510 GOSUB 3610;NEXT P;NEXT H 

3600 CLEAR ;PRINT " PAR=",#1,B;FOR Z=1T0 N;PRINT " PLAYER",#2,Z," =",#1,@CZ ),#4,@ 
(Z)-B;NEXT Z 

3610 FOR 0=1TO 1000;NEXT 0;RETURN 

4000 CY=-20;CX=-59;PRINT "PENALTY";NT=40;MU=60;MU=60;MU=60;NT=0; U=U+1;GOSUB 3610 
;GOTO 148 
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2 

3. 

4 

5 

6 
10 
'20 
30 
40 
50 
60 
70 
80 
30 

100 

110 

115 

120 

200 

300 

310 

320 

330 

340 

350 

360 

365 

370 


387 

380 

400 

405 

410 

415 

420 

500 

505 

510 

515 

700 

710 

715 

790 


300 1=0;IF P=Pc2b2I=l 

810 U=Y-(20-P3b5c2+16 

815 BOX X,0,5,4,1 

818 IF (P<53 + (P>153GOSUB 800 

825 IF T>12B0X X,U,3,1,2;IF I=0BOX X,0-1,3,1,2 
830 IF T=32RETURN 
835 H=5-I 

845 IF P>1lH=-H-2+I 
847 K=2b FIBS ( H 3 -1 
850 BOX X+2.H+U,1,K,1 
855 IF T >6RETURN 
356 IF H<0K=2-K 


. MUSICAL STAFF 
.BY BOB WISEMAN 
GOSUB 850 
N=N+1 

GOSUB 300;IF WGOTO 50 
GOSUB 200;GOTO 20 
GOSUB 400;X=X~9 
C=JX(13+2bJYC13 
IF C=0GOTO 60 
IF C=-2G0T0 10 

FOR M=0TO N-1;P=@(M)c50;T=RM 
GOSUB 700;NEXT M 
IF C=2IF TR(13=0GOTO 120 
GOTO 30 

FOR M=0TO 100;NEXT M;GOTO 85 
@< N )=50bP+T;RETURN 
X=X+8;IF X>70X=-70;Y=15-Y;GOSUB 500 
GOSUB 800;GOSUB 700 
IF TRC1 )+TRC 2)W=TR(23;RETURN 
U=JXC1);W=JY(13 j 

IF U=0IF W=0U=0;GOTO 320 
IF U=1G0T0 320 

U=1;P=P+W;IF (P>193+CP<03P=P-W ' 

IF U=0GOTO 385 
IF <J< 0T=Tc2 
IF U>0T=T+T 
IF T>32T=32 
IF T<2T=2 

GOSUB 400;GOTO 310 
BOX X+l,Y+7,'l0,12,2 
BOX X+l,Y-27,10,14,2 
FOR U=Y-17T0 Y-2STEP 5 
BOX X+2,U,10,4,2;NEXT U 
RETURN 

BOX 0,Y-10,160,44,2 
FOR U=Y-20TO YSTEP 5 
BOX 0,U,160,1,l;NEXT U 
RETURN 

&C16 3=49;&<173=@CB-P3;&<223=127 
FOR A=0TO 20bT;NEXT A 
&(22 3=0 
RETURN 


MUSICAL STAFF writes notes in the 
key of C» using controller #1. 

JY command changes the note,while 
JX command changes the length. 

TR enters the note. Controller ,f2 
plays the tune once, repeatedly, 
or starts over. 


IF T>3IF P>11G0T0 870 


858 

860 BOX X+3,K+U,3,1,1 
865 IF T>3RETURN 
870 BOX X+3,K+0-2,3,1,1;RETURN 
800 IF P>15B0X X,Y+5,8,1,1 
805 IF P>17B0X X,Y+10,8,1,1 
810 IF P< 5B0X X,Y-25,8,1,1 
815 IF P<3B0X X,Y-30,8,1,1 
820 RETURN 

Eob Wiseman 
118 St.Andrews Dr. 
Cincinnati OH 45245 


950 :RETURN ;NT=0;CLEAR ' 1 1 

951 M=SZc2;N=M;A=1000;B=90;GOSUB A;B=80;GOSUB A 

352 B=71;GOSUB A;B=67;G0SUB A;B=60;GOSUB A;B=53;G0SUB A;B=50;GOSUB A 

853 B=44;GOSUB A;B=39;G0SUB A;B=35;G0SUB A;B=33;G0SUB A;B=23;G0SUB A;B=26;G0SUB 

A 

854^8=24;GOSUB A;B=22;GOSUB A;B=19;G0SUB A;B=17;G0SUB A;B=16;G0SUB A;B=14;G0SUB 
A 

960 P=4; T=8; N=-l \ 

861 B=M J | 

965 X=70;Y=-10;RETURN 
1000 N=N-1;@CN3=B;RETURN . 
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3 . 3D CORNERS 

4 . BY DIETER HEINERMAN 
9 NT=0 

10 CLEAR 

11 FC-7 

16 FOR A=1T0 44STEP 1 

17 IF TRC1 )=1G0T0 50 

18 IF TRC 2 )=1CLEAR 

19 BC=7bB 

20 BOX A,-A,A,A,3 
25 BOX -A,A,A,A,3 
30 BOX A,A,A,A,3 

34 BOX -A,-A,A,A,3 

35 &(22 )=255; &(18 )=A 
38 NEXT A 

37 B=RND (255) 

-^39 FC=B 
40 GOTO 18 

50 FOR A=44T0 1STEP -2 
70 GOTO 20 


ELECTRONIC BLANKED 
BY DIETER HEINERMAN 


13 &(22)“255 
15 IF E=5G0T0 90 
20 FOR B=-70TO 70STEP A 
25 &(17 )=B;&(18 )=BbA 
30 C=RND (6) 

35 IF TRC1)=1GOTO 9 

40 FOR D=-40TO 40STEP C 

41 MU=BC 

42 BC=B+200 

43 FC=BC-53bC 

45 &C18)=DbC f 

46 &C 20)=A+CbD 
50 BOX B,D r A,A+C,3 
60 NEXT D 
70 NEXT B 
75 NEXT E 
80 GOTO 10 
90 PRINT ■ WANT MORE? PRESS 1 * 

100 IF &(23)=8G0T0 9 
110 GOTO 100 


4 . DENOMINATOR 

5 . BY DIETER HEINERMAN 

6 CLEAR 

7 BC=56 

8 NT=1 

9 PRINT ;PRINT " INPUT I 
10 INPUT ’ ’,N 

20 FOR T=1T0 N-l 
30 X=0 
40 PRINT 
50 A=T 

60 PRINT *2,A,*1,‘c’,*l,l 
70 IF (Abl0)cN<lGOTO 140 
80 A=Abl0 
90 PRINT *l,CAcN), 

100 X=X+1 

110 IF X>=N-1GOTO 190 

120 A=A-(AcN)bN 

130 GOTO 70 

140 A=Ab10 

150 PRINT #1,0, 

160 X=X+1 

170 IF X>=N-1GOTO 190 
130 GOTO 70 
190 NEXT T 

200 IF &( 23) = 1G0T0 1 
210 GOTO 200 


- INPUT DENOMINATOR 


5 NT=10 

6 CLEAR 

7 BC=»127 

10 &(22)=255 
20 FOR C=1T0 100STEP 1 
~30 FC=BbA 
40 A=RND C140)-70 
50 B=RND (80)-40 

55 MU=A 

56 &C18 )=B 

57 &C 20 )=C 

60 BOX A,B,5,5,3 

61 BOX -A,B,5,5,3 

62 BOX A,-B,5,5,3 
65 BOX -A,-B,5,5,3 
70 IF C >99G0T0 90 
80 NEXT C 

90 FOR E=1T0 10STEP 1 
95 MU=E 

100 IF E=10CLEAR 
110 IF TRC1 )=1G0T0 10 
120 NEXT E 
130 GOTO 90 



ADS:WANTED: Used Bally interface in good working condition - cheap. 

R. Ruppert 2722 Pyramid Ave., Pittsburgh PA-15227 

FOR SALE: Software by W&W Software Sales,6594 Swartout Rd. Algonac 
MI 48001. Nine tapes with five programs each, plus a new 
one for the Blue Ram (This one is available on tape only, 

$5». and called 'Bally Nuclear Power Plant') See ad on p. 

10 for more details... 

FOR SALE: Cartidges because UPS lost my Arcade: BASIC,INTERFACE at 
$35 each; BASEBALL/F00TEALL/SEA WOLF/CLOWNS/MATH EINGO/ 

280ZZZAP/STAR BATTLE/RED BARON/ELACKJACK at $15.each. Check 
or money order plus $1. to Randy Rienth, Rt 1 Box 73H, 

Gloucester, VA 23061 

FOR SALE: Software by Rob Rosenhouse, 44 Forestbrook Dr., North 

Plainfield, NJ O 7 O 6 O. Super Software now offers 6 sets of 
programs including a new one based on Missile Command by 
Atari. For catalogue including 2 RND(ART) programs, send 
a large SSAE 

USER GROUPS: If you are in the following areas, contact the persons listed: 

Metropolitan Washington,DC-Jerry Heere,2802 Avon Ave Silver Spring 19608 
Westchester Co.areaNY-Dan Simpson Eox 229 Somers, NY 1 0589 
914-248-7058 

FOR SALE: Bally factory games and accessories - special discount to 
ARCADIAN subscribers. For free price list, write to SFP, 

1064 N. Alta Ave. Dinuba, CA 93^18 


HOT FLASH! latest 

ASTRO VISION PRICE LIST 
SHOWS AUGUST DATE FOR 
ADD-ON. 


2 AND 3-PART HARMONY 

MUSIC 

SOFTWARE! 

Three 60-minute programming 
cassettes now available! 

1. Bach’s 15 Two-Part InventionsI 

2. Christmas Music; 27 CarolsI 
Scott Joplin Ragtime PianoI 

s 9 50 Each 
GEORGE mOSES CO. 

P.O. Box 686*Brighton, Ml 48116 


A 
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The SOURCE TCD 959 
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San Jose, CA 95127 




March 7.1981 


— <RRCRDIRN 



Volume 3 Number 5 


PREPARATION of the ORCADIAN has been modified slightly by the obvious 
use of the COMPRINT printer for text as me I I as programs. I am using 
the MUSE “SUPER-TEXT" word processor on my Apple to prepare this 
issue. Aside from being able to type the material and then store it 
for future use or revision, the output is niceli 
right side margin is neat. 


justified so that the 


WEST COAST COMPUTER FAIRE is coming up shortly, due in San Francisco 
on the April 4 weekend, Brooks Hall. 

I shalI have booth 09 there, up against the wall, and we (Dick Houser 
and I) shalI have alI the items we have been talking about in the 
ARCADIAN there, maybe some new ones as we I I . If in the area, please 
drop by to visit with us. Locai subscribers are invited to drop me a 
card if you can help out for an hour or two at the show. 


TELEPHONE NUMBERS here at headquarters are (408) 258-4586 for the 
private line, 272-2364 gets the rest of the family. 

CORRECTIONS required to prev ious programs. 

GOLF Bob Hensel writes that the following should be added to 
the program after the listing shown in the last issue: 

:RETURN;NT=0;BC=25;FC=92;&(0)=170;&(1)=170;&(2)=7;&(3)=7;INPUT 
N;&(9)=20;GOTb 100 

The inputted N is- the number of players, 1 to 4. Have to 
apologize here, this line, which was on Bob's tape, does not print 
out when you list the program, and I didn't notice it. 


GRANDFATHER CLOCK In line 15, the values of @(14) and@(15) 
should be swapped - it goes bong-bing instead of bing-bong. 


MUSICAL STAFF Line 120, last statement should read GOTO 850 
The zero dropped out* 


ALTERNATIVE ENGINEERING reports that due 
the transformers used in their power 
discontinued this product. --i _____ 


to a problem in locating more of 
supplies, they have temporarily 


THE DIGITAL COUCH PROGRAM WAS REWRITTEN FOR THE BALLY FROM A PROGRAM BY 
DAVID TUNBO. ORIGINALLY PRESENTED IN CREATIVE COMPUTING, AND WRITTEN FOR THE 
OHIO SCIENTIFIC CHALLENGER II. 

THE DIGITAL COUCH PROGRAM TURNS YOUR COMPUTER INTO A PSYCHIATRIST. IT DRAWS 
A PICTURE NOT UNLIKE AN INKBLOT AND GIVES THREE CHOICES AS TO WHAT THE PICTURE 
LOOKS LIKE. THE PROGRAM KEEPS SCORE AND RATES THE PLAYER WHEN THE “TESTS" ARE 
OVER. 

THIS PROGRAM IS NOT TO BE TAKEN SERIOUSLY, AND WOULD PROBABLY BE BEST PUT 
TO USE AT PARTIES, ETC. 

THE CHOICES GIVEN, AND CONCLUSIONS REACHED, ARE RANDOM. 

THANK YOU, 

BOB WEBER . 


I© 1^81 Robert Faipns 
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Bob Weber 
S594 Su»artout Rd. 
Rlgonac, MI 48001 


DIGITAL COUCH - 

);FC=BC+12?B0X C X E V R 3 ; 3°1 UB 1005;S=0;FOR J=1T0 K;CLEftR 5X=30;Y=20;B=0;BC=RND (255 

20 A=RND ( 4);IF A=4X=X+3;IF (X>70)+(PX(X,Y))A=RND (3);X=X-3 
30 IF ft=4G0T0 100 

40 IF A=3X=X-3;IF (X<0)+(PX(X,Y))R=RND (2);X=X+3 
50 IF A=3G0T0 100 

60 IF R=2Y=Y+3;IF (Y>40)+CPX(X,Y))A=1;Y=Y-3 
70 IF R=2G0T0 100 

80 Y=Y-3;IF (Y<0)+(PX(X,Y))A=0;Y=Y+3 
80 IF R=1G0T0 100 
95 B=B+1;IF B=8GOTO 200 
100 BOX X,Y,3,3,1;GOTO 20 

200 CY=0;F=0;PRINT ’IS THIS A:*;C=RNB (12);IF RND (3)=2F=C;G=1 
210 D=RND (12 );IF D=CGOTO 210 
215 IF RND (3)=2F=D;G=2 
220 E=RND C12);IF (E=C>+CE=D)GOTO 220 

225 IF RND (3)=2F=E;G=3 

226 IF F=0F=D;G=2 

bl000 PRINT * (1> ’- ;G0SUB Cbl000;PRINT “(2) ’,;G05UB Dbl000;PRINT ’(3) ‘,;GOSUB E 
240 L=KP-4S;IF L=GGOTO 400 

250 PRINT ’NO, IT’ S A ’;GOSUB Fb1000;GOSUB (RND (4)+12)bl000 
300 FOR Z=1T0 898;NEXT Z;NEXT J 

WOULD = SflY 100:>CK;PRINT ' LET ’ S SEE N0W -" ;PRINT * YOUR SCORE IS ' , #1, H, ’5£" ; PRINT ’I 
320 IF H<20PRINT ’YOU RERLLY ARE R MESS! 

330 IF H<40IF H>18PRINT ’THAT YOUR BRRIN IS HALF A BUBBLE OFF CENTER' 

R< I®* F H>38PRINT ’THAT YOU SHOULD BE KEPT RWRY FROM SHARP OBJECTS! 

360 IF H>69PRINT TO GET THIS MANY RIGHT, YOU MUST BE TWISTED' 

370 ST OP 

400 PRINT ’VERY GOOD* THAT* S RIGHT!’;S=S+1;GOTO 300 
1000 PRINT ’RODNEY’;RETURN 
1005 PRINT ’THE DOCTOR WILL SEE YOU 
A SERIES OF PICTURES. 

1010 PRINT "WHEN I ASK YOU, INDICATE 
YOU. 

1020 PRINT ’BASED ON YOUR ANSWERS, I TUUK njL 

1030 PRINT ’HOW MANY DO YOU WANT?’;K=KP-48;IF K<1GOTO 1030 
1040 IF- K> 5P R INT ’MAKE IT EASY ON YOURSELF--NOT SO MANY.’;GOTO 1030 
1050 RETURN 

2000 PRINT ’SICK STAIR CASE’;RETURN 
3000 PRINT ’CAT FLYING UPSIDE DOWN";RETURN 
4000 PRINT ’BIRD IN A HALTER TOP’;RETURN 
5000 PRINT ’PEANUT BUTTER ROCKET’;RETURN 
6000 PRINT "DRUNK WITH FLAT TIRE’;RETURN 
7000 PRINT ’WILTED FIRE PLUG 11 ; RETURN 
8000 PRINT ’PLATE OF REFRIED BEANSRETURN 
8000 PRINT ’FROG WITH NUDE’;RETURN 
10000 PRINT ’CREEPY CANAL’;RETURN 
11000 PRINT ’NAZI ANT HILL’;RETURN 
12000 PRINT ’MARTIAN PAGODA’;RETURN 

13000 PRINT ’HMMMMMMM’;PRINT ’YOU NEVER HAD A PUPPY AS ACHILD, DID YOU*? 

13010 PRINT ’THINGS LIKE THAT SHOW!’;RETURN 
14000 PRINT ’THAT IS A VERY REVEALING CHOICERETURN 
15000 PRINT ’YOUR ANSWER IS NOT CORRECTBUT IT IS MEANINGFULL. ’‘.RETURN 
SOONER' 'rIj'ur™' RE CL0SE ' ^ N0T ' :PRINT ' RIGHT - Y0U SH0| JLD HFWE CONE TO ME 


* M GOING TO SHOW YOU 


NOW,’;PRINT ’HELLO, 

WHICH OF THE THREE CHOICESIT LOOKS LIKE TO 
WILL EVALUATE YOUR MIND. 


5 £ 


J 
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TOWER OF HANOI is an old gams, originally played with a set of 
rings to be placed on three pegs mounted on a board. The number of 
moves required to shift the pile from one location to the final 
iocation is equal to 2 -1, where n is the number of blocks. For a 
four-block pile then, the minimun number of moves is 15. I dug into an 
old Johnson-Smith catalog to find the puzzle available there for 35 
cents, but the cataIog is 40 years old... 


COMMENTS Bert Holmes writes: I too have had trouble loading at NT=0 
but I found that it only happens when trying to overcopy a previous 
program. This may happen when trying' to load a copy of the same 
program if the first line (usually a throw-away for just this purpose) 
is missed due to plug-in or voice leader noise. The Bally then sees 
the incoming line as a replacement and must insert and shift the text. 
However, if the Bally is RESET the program seems to load flawlessly. 
In summary, for entries which simply add on to the current program 
with 
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2 . 

3 . 

4 . TOWER OF HANOI 

5 . BY BOB WISEMAN 

S CLEAR ;INPUT "HOW MANY BOXES? 1 

7 @(0 3=9 

8 BC=1S9;FC=11 

9 CLEAR ;A=0;C=1 

10 CX=-65 

11 PRINT “TOWER OF HANOI", 

12 FOR X=1T0 21 
14 @(X3=0;NEXT X 
16 IF R >7 R=7 

20 FOR T=RTO 1STEP -1 
30 B=T;GOSUB 400;NEXT T 
100 IF @C13=0IF @C83=0GOTO 900 
105 IF @<13=0IF @(15 3=0GOTO 900 
110 GOSUB 600;GOSUB 500 
130 IF B=0GOTO 110 
140 GOSUB 600;GOSUB 400 
160 IF B#0GOTO 140 

165 A=A+1 

166 CX=60 

170 PRINT #3,A, 

180 GOTO 100 

400 D=CC-13b7+l 

402 IF @(D 3=0X=D;GOTO 430 

405 FOR X=DTO 21 

410 IF @(X3=0GOTO 420 

415 NEXT X 

420 IF B >@(X-13GOTO 480 
430 @(X)=B;GOSUB 700 
440 B=0;GOTO 490 
480 FOR X=1T0 5 
485 MU=“Z";NEXT X 
490 RETURN 
500 D=(C-13b7+l;B=0 
510 FOR X=DTO 21 ’ 

515 IF @CX3=0GOTO 530 
520 NEXT X 
530 X=X-1 

540 IF X<DGOTO 585 
550 B=@(X);GOSUB 700 



cI NC INNATI7 OHI Q ~45245 

560 @( X 3=0 
565 GOTO 599 
585 FOR X=1T0 5 
590 MU="Y*;NEXT X 
599 RETURN 

800 IF &( 163=0MU=“T";GOTO 620 

610 GOTO 600 

620 C=0;D=&(16 3 

630 IF D=4C=1 

640 IF D=1C=2 

650 IF D=8C=3 

660 IF C=0GOTG 620 

690 RETURN 

700 Z=-72+36bC 

705 Y=<X-l3c7 

710 Y=-35+10b RM 

720 W=5bB 

730 BOX Z, Y, W, 9,3 

740 MU=B 

790 RETURN 

900 CLEAR 

905 BC=6;FC=0 

906 PRINT " 

910 PRINT "YOU FINISHED " 

920 PRINT " THE TOWER IN",#3,A," MOUES" 

921 B=1;FOR X=1T0 R 

922 B=Bb 2;NEXT X 

924 A=A-B+1 

925 IF A=0PRINT "GREAT WORK";GOTO 928 

926 IF A<Rb2PRINT "NOT TOO BAD" 

927 IF A>2bRPRINT "KEEP TRYING" 

928 PRINT " YOU WASTED",#4,A," MOUES" 

930 PRINT "PULL TRIGGER TO PLAY" 

935 R=R+1 

940 IF TRC13=lGOTO 2 
950 GOTO 940 



A NEW LOCATION. YOU "wiLl^BE^ASKEj'how TAHY BLOCKS^VO: ' 5 

rHESE WILL Bk STACKED IN DESCENDING ORDER ON THE LEFT I Vini 
tIUST MOVE THEM AROUND TO REBUILD THE TOWER IN T : -> c •~'Ei\ , ~E c: ' r« 
THE RIGHT. A LARGER BLOCK MAY NOT REST ON A* '--MALL^P ’ r '* 
MOVING A BLOCK IS DOME IS TWO STAGES. FIRST,'yoh ERA^E~^T 
YOU REDRAW IT. ONLY THE TOP BLOCK OF A STACK MAY BE MOUFn 
INDICATE WHICH STACK YOU WANT, USE THE HAND CONTROL. 
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This is part 2 of Bob 
Wiseman's tutorial on 
techinques. 



PART III. TRICKS OF THE TRADE. 


HERE I WILL ENTERTAIN YOU TO A FEW PROGRAMMING TRICKS I HAVE 
CONJURED UP WITH THE BALLY. 

TRICK 1 - HOW TO KEEP TRACK OF PIECES ON A BOARD GAME. 

RATHER THAN CREATE A TABLE OF WHO IS WHERE, IF YOU ARE 
SHORT OF MEMORY YOU CAN OFTEN USE THE PX(X,Y) COMMAND. 

SUPPOSE WE HAVE THREE POSSIBILITIES: 

NOBODY, AN "X", A "0". 

CHECK TWO SQUARES WITH THE PX COMMAND: THE BOTTOM CENTER 
AND THE BOTTOM LEFTMOST. COMPUTE P=PX(L» B)+PX(C,B). 

THIS WILL GIVE US THE CORRESPONDING ZERO, ONE, AND TWO FOR 
SPACE, "X" AND "0". 

THIS WILL NOT BE FAST AND SHOULD ONLY BE USED WHEN 
MEMORY IS IN VERY SHORT SUPPLY. 

TRICK 2 - CODING THE FANCY "IF" STATEMENT. 

WHEN EVALUATING LOGIC STATEMENTS, BALLY BASIC ASSIGNS A TRUE 
VALUE TO ANYTHING BUT ZERO. STATEMENTS THAT EVALUATE TO ZERO 
ARE FALSE. SIMILARLY, IF SOMETHING IS TRUE, THE ARCADE GIVES IT 
THE VALUE ONE. IF SOMETHING IS FALSE, THE VALUE ZERO. 


10 A=0 

20 IF APRINT"HI THERE 

THE VALUE OF A IS ZERO, WHICH IS FALSE, SO THIS WILL NOT PRINT 
ANYTHING. CONVERSLY, 

10 FOR N=-l TO 2 
20 IF NPRINT"HI THERE 
30 NEXT N 

THIS WILL PRINT "HI THERE" FOR THE NON-ZERO VALUES OF N (-1,1,2). 
THREE LINES WILL BE PRINTED. NOW WE CAN GET FANCY. SUPPOSE THAT 
WE WANT TO PRINT SOMETHING IF A IS 4 OR IF B IS 5. FIRST OF ALL, 
THE STATEMENT: 

10 C=(A=4) 


WILL SET C EQUAL TO 0 (FALSE) IF A IS NOT EQUAL TO 4. 
EQUAL TO 1 (TRUE) IF A IS EQUAL TO 4. SO WE CAN SAY: 

10 C=(A=4) 

20 D=(B=5> 

30 IF C+DPRINT"HI THERE" 


C WILL BE SET 
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!5' T ? ™?T C+D WILL- be ZERO ONLY IF c AND D ARE BOTH ZERO 
*° L+ ° 18 THE SAME ** (C OR D). TO SIMPLIFY ?H?sy H W E CAN WRITE 

10 IF (A=4)+(B=4)PRINT"HI THERE 

SO A +" WORKS LIKE THE WORD "OR". AS YOU WOULD EXPECT thf 

k stiL t s» s zvhi™?™ 

A EQUALS FOUR AND B EQUALS 5, WE CAN WRITE: 

10 IF (A=4)*(B=4)PRINT"HI THERE 

10 IF ( ( A<4)*(A>0))+<A>10)PRINT"HI THERE 

LflTER° F ^ NP ^^ FB ™® R ^^ N ^ FF ^*" E *'™ T3M ^ El P e RreCT E SENSE N ‘°' 
LATER, WHEN TRYING TO DEBUG, I SUFFER THE “WHO WROTE THT~ 

?f?SfBES? H IS5^ATr^E PAPER mKIN ° N ° TES 


BaIly 500 is a game of drivin 
skill for 2 or 3 players. One 
player controls the turns in 
the road with KN(4). The 
other players control the car 
with KN(1 ) and KNC2). Road 
blocks, accidents nnrl n+ War 


ted at the top I eft 


eI :3(hard)-10C e 



issue wiI I have a 
aeting, at which 


UIPER memory 
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2 .BY BOB HENSEL 

5 : RETURN ;CLEAR ; R=0'; B=0; P=0 

6 X=0;Y=10;Z=-10 

7 NT=1;S=0;T=0 

8 BC=126;FC“249 

9 GOSUB 4000;BOX 0,0,50,80,1 
10 X=X+KNC4)c20 
20 Y=Y+KNC2)c20 
25 Z=Z+KN(1)c20 
30 T=T+1;S=S+1 

100 BOX X,-39,50,8,1 
105 BOX X,-38,2,2,3 
110 IF P>0BOX X,-39,8,8,3;P=P-1 
190 IF R=0BOX Y,-8,2,4,3 
200 IF B=0BOX Z,-16,3,4,3 
242 IF TCLGOTO 299 
245 C=1;IF X>0C=-1 
247 GOSUB 1800+100bRND (10) 

249 GOTO 299 

299 IF T-L=0T=0 

300 CY=-40;CX=-77;PRINT 

301 CX=-70;CY=40;PRINT #1,S 

302 IF fl >0IF B >0GOTO 3000 
305 IF A>0GOTO 380 
310 IF PXC Y,0 ) = 1G0SUB 1000 
350 BOX Y,0,2,4,3 
380 IF B >0GOTO 10 
390 IF PXC Z,-8)=1G0SUB 1050 
400 BOX Z,-8,3,4,3 
700 GOTO 10 

1000 CX=Y;CY=0;PRINT 
1005 R=S 
1010 GOTO 1060 
1050 CX=Z;CY=-8;PRINT 
1055 B=S 

1060 NT=10;MU=67;MU=67;MU=67;MU=67;NT=1;RETURN 
1900 .TRUCK 
1905 C=Cbl2 

1907 BOX X+C,-32,5,5,3 J 
1910 BOX X+C+4,-32,1,2,3 
1920 BOX X+C-4,-32,1,2,3 
2000 .CRR 

2002 IF RBSC C ) >1G0T0 2010 
2005 C=Cbl2 

2010 BOX X+C,-39,5,8,3 
2020 BOX X+C+4,-37,1,2,3 
2030 BOX X+C-4,-37,1,2,3 
2040 BOX X+C+4,-41,1,2,3 
2050 BOX X+C-4,-41,1,2,3 
2060 RETURN 
2100 .HOUSE 
2105 C=Cb45 

2110 BOX X+C,-38,12,10,3~ 

2120 BOX X+C,-32,8,2,3 
2130 BOX X+C,-36,16,2,1 
2140 BOX X+C-2,-39,2,2,3 
2150 BOX X+C+2,-40,2,4,3 
2160 RETURN 



2200 .TREE 
2205 C=Cb40 

2210 BOX X+C,-28,2,2,3 
2220 BOX X+C,-30,4,2,3 
2230 BOX X+C,-32,6,2,3 
2240 BOX X+C,-34,8,2,3 
2250 BOX X+C,-36,10,2,3 
2260 BOX X+C,-40,2,6,3 
2270 RETURN 
2300 .SIGN 
2303 IF P>0RETURN 
2305 C=Cb50 

2320 BOX X+C,-29,12,12,3 
2325 BOX X+C,-29,8,8,3 
2330 CX=X+C;CY=-29;PRINT *P*, 

2335 LINE CX-9,CY-4,4;LINE CX-3,CY+2,1 

2336 P=15 

2340 BOX X+C,-39,2,8,3 
2350 RETURN 
2400 .LOG 

2410 BOX X-3,-38,24,5,2 

2415 BOX X-10,-41,2,4,2;BOX X+3,-41,2,4,2 
2420 RETURN 
2500 .CRASH 


2510 BOX X+8,-28,10,4,2 
2520 GOSUB 1900 
2530 RETURN 
2600 C=-lbC;GOTO 1900 
2700 C=-lbC;GOTO 2000 
2800 RETURN 
3000 .END 

3005 CY=-40;CX=-23;PRINT "GAME OUER";FOR 

3010 CLEAR ;CY=24;PRINT * SCORE 

3020 PRINT * PLAYER 1 PLAYER 2 

3030 PRINT 

3040 PRINT B,' ",A 

3050 STOP 

.TITLE 

4010 CY=0;PRINT * BALLY 
4020 PRINT ■ BOB HENSEL 

4025 PRINT 
4030 INPUT ‘ 


Bob Hensel 

8428 Ingleside Awe., S 
Cottage Grove, MN 55016 


<=1T0 1000;NEXT K 
; PRINT 


5 0 0”;CY=-8;CX=-6;PRINT 


SKILL LEUEL=“L;CLEAR ;RETURN 
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. DEFUSE 

i . BY DIETER HEINERMAN 
CLERR 
NT=2 

i BC=8;FC=100 
i PRINT ;PRINT 

DEFUSE 



NEED INSTRUCTIONS?* 

I 460 PRINT 


PRESS 1 FOR YES' 


30 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

260 

270 

280 

230 

300 

310 

315 

320 

330 

340 

350 

360 

365 

370 

380 

330 

400 

410 

420 

425 

426 
430 
440 
450 


WIDE",B 
HIGH* , C 


WANT TO PLAY AGAIN?" 
PRESS 1* 


530 PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT " PRESS 2 FOR NO 
PRINT 

FOR H=1T0 2400 
IF &(23)=8G0T0 90 
IF &C22)=8G0T0 260 
NEXT H 

FC=9;GOTO 40 
CLEAR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
CLEAR 

A=RND (100 );B=RND (100) 

C=RND (100);IF A>0GOTO 310 
IF B >0GOTO 310 
IF C=0GOTO 280 
D=0;E=0;F=0;G=0 
PRINT 

" SIGNAL*,10000-((A+B+Cb100 )-(D+E+Fb100)) 
" LONG",D 

* WIDE",E 

* HIGH",F 
“ SECONDS",G 


DEFUSE is a three-dimensional 
guessing game where you haue to 
locate a point in the center 
using 'hot-cold' type clues. 


,G,"SECONDS*;GOTO 490 


" YOU ARE IN A GOUERNNMENT" 
"EXPERIMENTAL BUILDING WITH* 
" 1,000,000 ROOMS IN IT." 

* 100 LONGC 0a93)* 

" 100 WIDEC 0a99)* 

" 100 HIGHC 0a99 ) 

* IN IT A BOMB IS HIDDEN " 

" THE BOMB SENDS OUT " 

" SIGNALS THAT GET STRONGER* 
" AS YOU GET CLOSER" 

‘ YOU HAUE 200 SECONDS 
" TO DEACTIUATE IT 


470 PRINT 
490 PRINT 
495 PRINT 
500 PRINT 
505 PRINT 

510 IF &(23)=8G0T0 260 
515 GOTO 510 
520 GOTO 800 
525 PRINT ;PRINT 

" BOMB DEFUSED AT 
540 IF D>99G0T0 610 
550 IF D<0GOTO 610 
560 IF E>99G0T0 610 ' 

570 IF E< 0GOTO 610 
580 IF F>99G0T0 660 
590 IF F<0GOTO 680 
600 GOTO 315 

610 PRINT " YOU WALKED OUT A WINDOW* 
620 PRINT "ON THE";IF F<4G0T0 740 
625 PRINT F,“TH FLOOR!!!!" 

630 PRINT " YOU WERE KILLED AND" 


640 PRINT 200-G,"SECONDS LATER" 

650 PRINT " THE BUILDING BLEW UP!!!";GOTO 4: 
YOU ARE NOW",Fb9 
FEET IN THE AIR!!!!";GOTO 630 
YOU ARE NOW ",-lbCFb9) 

FEET UNDERGROUND!!!!";GOTO 630 


660 PRINT 
670 PRINT 
680 PRINT 
690 PRINT 
740 IF F=1G0T0 770 
750 IF F=2G0T0 780 
760 IF F=3G0T0 790 


770 PRINT 
780 PRINT 
790 PRINT 
800 CLEAR 
810 GOTO 490 


1ST FLOOR" 
2ND FLOOR" 
3RD FLOOR" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

INPUT D,E,F;CLEAR ;G=G+10;IF A#DGOTO 400 
IF B#EGOTO 400 
IF C=FGOTO 525 
IF G=200GOTO 420 
GOTO 540 

PRINT •" BOOOOOMMM ! ! ! YOU BLEW IT" 

&(16)=255;&(17)=255;&(18)=135;&(19)=66;&(21)=255;&(22)=255;&(23)=255 
FOR X=7T0 127;BC=X;NEXT X;FOR X=16T0 23;&CX)=0;NEXT X 
PRINT " THE BUILDING BLEW UP " 

PRINT " THE BOMB WAS AT " 

PRINT ° LONG",A 


GOTO 630 
GOTO 630 
GOTO 630 


Dieter Heinerman 
505 4th Awe SW #1511 
CaIgary,Alberta, Canada 
12P 0J8 
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The memory system of the Bally, and the Bally basic Ianguago 
that goes along with it, only works in 1300 bytes of space. Physically 
adding memory chips to the system .wiring them into the circuit, will 
haue no effect because the Bally basic 'can't count higher that 1800' 
comes to looking for memory space. This has been a major 
s umbling block in the way of making this machine into a useful 
computer. Last year, the Blue Ram was developed to get around this 
block by making it possible to program machine language codes into the 
Bally, up to 4K. BaI Iy Bas i c still could not address this space, but 
we thought that expansion of user knowledge into the area of machine 
code programming would be beneficial, ft more universal expansion of 
the system would be to remove the 1800 byte constraint in the 
language. We then pressed ahead with what I have been calling the 
Extended Basic, which is a complete rewrite of the original. By 
.doubling the memory space of the chip to 8k, we could also eliminate 
some of the space-saving tricks of the original, and get the four 
colors on the screen and other features. Work on the production of 
this language is progressing and we hope to have it available bu 
mid-year. 13 


Meanwhile, once the Blue Ram was placed in the hands of users, we 
discovered that Bally Basic statements could also be placed in the 
Blue Ram by means of some simple statements, and that means that you 
can write programs just as before, but make them three times as long, 
or more complicated, or with more sound or color, etc.,as before. This 
t echn ique is included in the -Operating System tape now ava i IabIe. 

Coming into production in the immediate future is the UIPER. 
This scheme allows greater memory expansion than the Blue Ram, at a higher 
price. The construction of this machine allows the expansion of the unit by 
adding individual cards, each containing the feature or accessory control 
that you are interested in. This is the method used in the Rpple computer. 
The design of the base system must then contain enough hardware on it to 
support all the cards that could be added, and cost accordingly. However, 
the individual accessory cards would then be relatively inexpensive and be 
completely compatible, ready to slip into their little slots. 


CONTEST FOR PROGRAMS is being planned by flstroUision. If you 
are looking for an opportunity to gain some recognition, as welI as 
perhaps making a little money, write to AstroUision for their 
up-coming “Authorship Guide” which will outline the rules, etc., for 
their contest. They plan to have a number of categories (art, utility, 
game,etc.) with winners in each. A top prize of S10.000 will be in the 
offing. Write to 6460 Busch Blvd., Suite 21S, Columbus, OH 43229, 
attn: D.Dawson. 

CARTRIDGE NEWS The only real news is that the GALAXIAN game goes 
into production 1 March, and a new game titled PIRATE'S CHASE is in 
the works. The GALAXIAN will have a score storage scheme where four 
players 's score will be kept by the machine as each plays the 
computer individually (much as a pinball machine does). 



ORCADIAN PROGRAM TAPES are available from Dick Houser 63S Los Alamos 
Ave, Livermore, CA 9-4550 as follows: Uol ume 1 ( 20 programs); Volume 2 a 
(22 programs, to p.42 ) ; Volume 2b (20 programs, from p.43 ) at 325 
each. Individual programs also available at SI plus tape and postage 
cost, minimun order, 310. Send for Iist/order blank. 


APPLE-BALLY INTERFACING PROGRAMS allow communication between Bally 
and Apple (and use of Apple disc and printer) for storage and loading 
of programs. Listing at S5., with all instructions; or on disc (DOS 
3.2.1) at S15 including all documentation and Iibrary of programs. 
Bob Wiseman 118 St.Andrews Dr. Cincinnati, OH 45245 


ABC HOBBYCRAFT want everyone to remember that they are still selling 
the Bally and its accessories, as well as software by L&M and George Moses. 
They also have a user group going for neighborhood owners. 2155 E. Morgan 
Ave. , EvansviI Ie, IL 47711 

Protection devices to shield your Bally from inadvertent erasures or 
entries. These plastic covers prevent operation of the keypad or the reset 
button. Send 32. for the pair, postpaid, to Dave Stocker 333 Coronado Dr., 
Mt. Vernon,IN 47620 


Long-time outlet SCHWENK 
ENTERPRISES report that they are still 
selIing Arcades and Videocades at discount 
prices by mail. Write for data to 6988 
Lincoln Creek CircIe,CarmichaeI , CA 
95608. (916) 944-2001 . 

USER GROUP NEWS Northern NJ area, coTI Rob 
Rosenhouse at (201) 755-2289. 

Error in last month's address for the DC. 
group, Jerry ' Heere's location is Sinking 
Spring, PA. 


SPECTRE is a software -developing 
company that is looking for ideas and want 
to hear from subscribers who have 
thoughts on what the Arcade and Add-Under 
units should provide. As a result of the 
recent Dearborn meeting, a questionnaire 
has been developed, and copies are 
available from Spectre at 14430 Barclay, 
Dearborn, MI 48126. 


x x 

X NEED MORE BYTES'? X 

X NOW! ! ADD 4224 MORE BYTES OF STATIC RAM! *4 
X WITH THE BLUE RAM A00 ON' ' * 

X MODIFY AND WRITE GAME CARTRIDGES TO TAPE! I 5s 
X NEU OPERATING SYSTEM PROVIDES 5192 BYTES * 

X OF BALLY BASIC WITH EDITOR.PARAMETER X 

X PASSING MO MUCH MORE! X 

X X 

X PRODUCT KIT WIRED X 

X THE BLUE RAM . *140.00 ... *180.00 X 

X KEYBOARD . *24.95 .... *89.95 X 

X BLUE RAM OPERATING SYSTEM (TAPE) .. *9.95 X 

X BSR INTERFACE . N/A . *19.95 X 

X MODEM ADAPTER . *69.95 .... *89.95 ‘4 

■4 WITH PRINTER INTERFACE *79.95 .... *99.95 ’4 

X * ALL OF THE ABOVE COME COMPLETE WITH '4 

■4 PROGRAM TAPES AND DOCUMENTATION. X 

X X 

X MORE COMING ... X 

X * * * » FAST graphics in color * * * * X 

■4 A 'HUMAN' VOICE TO ENHANCE YOUR GAMES! 4 

X • * * * RN 8K EXTENDED BASIC * * * * *4 

X ORDER FROM THE ARCADI RN OR X 

X PERKINS ENGINEERING 7. 

X 1004 PLEASANT AVE. BOYNE CITY.MICH. 49712 X 

X X 

x xx 


= GO = 


ARCADIAN 

Robert Fabris, word processing 
3626 Morrie Dr. 

San Jose, CA 95127 
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HYPERACTIVE? I'll say. This has been 
activities piling up one atop another, 
little early to avoid a rush at the printer' ! 
get mailings out prior to the postage 
invitation to attend a conference 
sales personneI 



April 15,1981 


a very interesting month, with 
The last issue was sent out a 
, what with everyone trying to 
increase. Then I received an 
Chicago with RstroUision and their 


Fa re ITT.T'' hT"' ‘^^>* Rfter that had West Coast Computer 

aire to get ready for (report below) and then this issue to prepare. So 
there were a lot of things happening, and here are the stories. 


REVIEW OF PRODUCTS BY RSTROUISION. Four of us attended a meeting in 
Chicago on March 20. Fred Cornett, George Moses, Mike Peace and myself 
represented the thousands of users of the Bally Arcade at a sales meeting. 
About 35 distributor organization personnel were there to get the low-down 
on near term and far future plans. The schedule first: 

May 15 Release of the Arcade plus 
Aug I Release of the RstroUision Basic 

Oct 1 Release of the Add Under 

198? Release of a Z8000 Arcade unit 


A. The ARCADE PLUS is our familiar Bally friend with a new motherboard. 
Functions are the same but some parts have been rearranged to alleviate the 
heat problem and therefore make the unit more reliable. As a result, the 
shields have been modified and the whole thing under the cover looks 
different. The reason for the "PLUS- marking is the fact that the 
RstroUision Basic will be included without additional cost. (The cost of a 
two-handle unit is stil I 300. ) ((But Montgomery Uiard sales wil I not 
include the Basic.)) 

B. The new BASIC cartridge is virtually complete, and only needs the 
final go-ahead to be placed into production. I mentioned this cartridge on 
page 40, and I had the opportunity to review one a couple of days before 
the meeting. It does transfer data at 1800 baud, six times faster than the 
current unit. It includes an EDIT function, wherebye you can recall a line 
number and make a correction to the commands located there. A special 
command function allows you to step through the individual letters/numbers 
in the Iine. Another feature is a TRACE mode - if a program is running, by 
pressing LIST, the next line to be executed will show up on the screen and 
then the computer will perform the operation, then the next line, the next 
operation, etc., so that in the case of program debugging, you can see if 
the program is doing what you expect it to ( it always does what you tel I 
it to, but that may not be what you expect ). 

Many of the commands having to do with the sound generating system 
have beem revised from a " &(2I)=n “ mode to a " NA=n * mode, saving 3 
bytes each. 

The cassette interface has been moved to the BASIC cartridge itself. 
There is a single jack at the top of the cartridge for a single cable to 
the recorder. You have to switch the cable at the recorder between the 
input and output jacks. 

AlI of this has to be paid for in some way. The $ mathematical system 
is gone; the :INPUT n system for program identification is gone; the screen 
scrolling during tape loading is gone; probably others. 
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SOFTWRRE IS THE GAME I was quite interested to see that the distributor 
group recognized the value of software to the sell-ability of the Arcade 
game. Since each Arcade will come with the Basic, each and every purchaser 
is a potential customer for your software. Once the novelty of the 
included games wears off, they will try the Basic, and possibIy get 
'hooked'. This paragraph is directed towards the subscriber who has not yet 
acted seriously on the idea of producing a program that can be marketed. If 
you have an idea for programs that you think have some potential, drop me a 
line. All kinds of programs are needed - just pop into a computer store or 
read the ads in Kilobaud or Creative Computing to see what's on sale. Write 
something similar in AstroUision Basic. Sell it_ 


PROGRAMMING CONTEST Authorship Manual is st 
Ainsworth, its author. Dick is hard at work o 
Manual, one which will be considerably more 
one, he assured us. 


work, reports Dick 
AstroUision Basic 
sive than the last 


The software workers are also working on such programs as “Peckman", 
Gorf , and Wizard of War”. These full-size game names will change as the 
units are released. ^ 

ALTERNATIUE ENGINEERING CORP. sent a production sample of their UIPER 1GK 
RAM card to be displayed at the Faj^e. (see ad p. S3) It consists of 16 
integrated circuits, a 10MHz clock chip, and two sets of DIP switches on a 
4x6 plug-in card. The workmanship is excellent, and so is the parts 
quality. Most of the IC's are LS type. This board (and system) is 
compatible with the Blue Ram software. \ 


PERKINS HI-RES BOARD was also receivi 
board is the standard BaIly motherboard i 
piggy-back technique onto existing chi| 
to make the item 'work' . When powei 
filIing the screen was reduced to om 


eived just in time for the show. This 
rd with a number of ICs added, most by 
chips. Many extra connections are made 
owered up, the picture we normally see 
one-fourth the size, and occupied the 


upper .left quadrant of the screen. There were a^number of big eyes, at the 
Fa ire when they saw the tiny*type, still 5x7, but so much smaller. 

A New Item From Perkins Engineering: 

___ . .WE ARE PLEASED TO 

ANNOUNCE ANOTHER ENGINEERING BREAKTHROUGH - HIGH RESOLUTION GRAPHICS. THE" 
■HI-REZ ADD-IN” FROM PERKINS ENGINEERING USES 39 ADDITIONAL CHIPS TO 
EXPLOIT THE HIGH RESOLUTION CAPABILITY OF THE BALLY CUSTOM CHIPS. THE NEW 
CHIPS ARE ADDED TO THE BALLY MOTHERBOARD IN A WAY WHICH ALLOWS THE REGULAR 
CASE TO GO BACK ON. A PROTOTYPE MODIFIED BOARD WAS DEMONSTRATED AT THE 
COMPUTER FAIRE. HERE'S WHAT YOU WILL GET: RESOLUTION MODE IS SOFTWARE 
SELECTABLE AT LOW NORMAL FOR EXISTING PROGRAMS, MEDIUM (160X204, SIMILAR TO 
MATTEL), AND HIGH (320X204, BETTER THAN APPLE). THE 39 CHIPS INCLUDE AN 
EPROM FOR FIRMWARE SUPPORT OF THE NEW MODES AND 12K OF ADDITIONAL MEMORY. 
THE SOFTWARE MODE SELECTION ALLOWS THE INDIUIDUAL PROGRAM TO CHOOSE ITS OWN 
RESOLUTION FOR FULL COMPATIBILITY WITH EXISTING GAME CARTRIDGES AND BALLY 
BASIC. FOR BLUE RAM OWNERS, A TAPE WILL BE INCLUDED TO PROUIDE MEDIUM 
RESOLUTION BASIC WITH FOUR SCREEN COLORS AND 7K PROGRAMMING AREA. PRICES. 
‘WILL BE IN THE RANGE OF *250 FOR THE KIT AND *300 WIRED (YOU SEND IN YOUR 
BALLY FOR MODIFICATION). AUAILABILITY WILL BE ANNOUNCED IN THE NEXT ISSUE. 


CORRECTION to ALCHEMISYMMETRICAL ART (p.39) change line 30: 
TF m > 1 BC = 4 and FC = RND(32 )xB+(2xC)+4 
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Michigan Bally Users’ Group gets a look 
at Zgrass-32 “ add-under” for the Arcade! 


by George Moses and Brett Bilbrey 

For about a month we had been sending out letters to members of the Michigan B.U.G. and interested par¬ 
ties in neighboring states that it was time for another users’ group meeting. The last one had been in Oc¬ 
tober and Astrovision had sent two representatives to answer questions about their takeover of Bally’s Con¬ 
sumer Division and to show off some of their forthcoming game cartridges. You read all about it and saw the 
photos in the November issue of Arcadian. For this meeting, scheduled for February 8, Dave Nutting 
Associates, designers of the Bally Arcade and the new Zgrass-32 had promised to send a representative out 
from Chicago with their amazing new computer. 

News like this brings all the Bally Arcade owners out of the woodwork! The phone rang steadily for two 
weeks before the meeting. People had new hope. Some had purchased other computers as they tired of 
waiting for Bally to keep their promise to expand the Arcade. But these were the people who were most ex¬ 
cited about this meeting! And they promised to come by the carload. 

Saturday morning, February 7, the day before the meeting we went to Detroit Metro Airport and picked up 
Craig Anderson from Minnesota and Steve Wilson from Ohio. They came the farthest to attend. At 6 pm that 
evening the George Moses household was abuzz with a crowd of friends showing off software. Craig Ander¬ 
son, Brett Bilbrey and Steve Wilson were doing some unimaginable things to the Arcade on George’s dining 
room table when the doorbell rang. It was Scot Norris from Dave Nutting Associates with his wife, Cheryl 
looking a bit tired after a 6 hour drive. We opened the hatchback of his car and there among the luggage was 
the Zgrass-32. Tired or not Scot couldn’t wait to plug it in and give us a little demonstration of Zgrass before 
dinner. He had only had a week of working with this computer prior to the meeting and wasn’t fully versed in 
the new Zgrass language yet, but Scot was able to show us some amazing graphics on our TV screen. 

Scot showed us how macros work and demonstrated the hierarchy of the Zgrass language. A macro is a 
program or subroutine that can run concurrently with other subroutines. The Zgrass-32 can run 127 macros 
at once. This is called “multi-tasking”. You can call any macro, all 127 macros at once, or macros can be pro¬ 
grammed to call each other. When you get the program running the way you want it to you can tell the com¬ 
puter to compile it. That is, it will rewrite the program in machine language, thus eliminating the need for the 
computer to interpret each command before executing it. This results in an amazing increase in speed of 
operation. He then demonstrated the way the Zgrass-32 can display 4 colors at once with a concentric box 
routine that when compiled gave a color show that had a tendency to leave one breathless. With this com¬ 
puter you have more screen area as no area is needed at the bottom for scratchpad. You have 102 pixels of 
vertical display and 160 pixels horizontally with 2 bits assigned per pixel for memory. This is the same as Bal¬ 
ly Basic resolution except that the full 4K of memory is used for dynamic screen RAM. The entire ROM inside 
the Arcade is ignored and the Zgrass-32 uses its own scratchpad RAM within the keyboard so you don’t need 
to borrow any screen RAM. Scot showed how interrupts could be used for updating graphics for smooth 
animation. Brett Bilbrey recently showed us this is possible with the present Arcade using machine 
language programming techniques he and Dave Ibach pioneered, but with this new computer it’s so easy it’s 
a snap! 

Speaking of SNAP, that’s the hame of a new command you get with the Zgrass-32. Here you can snap an 
area of the screen display and store it in memory and display that image wherever and whenever you call it. 
You can write 6 macros that store 6 pictures of a gunfighter walking, for instance. Using multi-tasking you 
could display them in sequence for the visual display of an animated figure. You can also tie any figure or 
SNAPped image to the hand control and make it move at your command. 

The self help routine was demonstrated. If you’re not sure about the format of a command you just type in 
the name of the command and the word “HELP” and the computer will ask you for the parameters required 
so you don’t have to grab for the instruction manual each time you begin to use an unfamiliar command. The 
production line prototype Zgrass units hadn’t been built yet, so what we saw was still in the lab-development 
state. The finished prototype will have BOX, LINE, CIRCLE and POINT commands. Not many computers can 
draw graphics as fast or as easily as the already existing Bally Arcade. And the Zgrass-32 puts it far ahead of 
the rest. 

The cassette tape interface is built into the computer and runs at 2000 baud. It differs from the interface 
we have now in that it is not a wave scanner. All it looks for is sound wave peaks and could care less what 
shape they’re in. So it’s a bit more forgiving than what we’ve had to tolerate in the past. The interface seemed 
to write more reliably to tape when the jack was plugged into the auxiliary plug than when using the mike 
plug. 

Two RS232 ports will communicate with disc drives and printers. One thing we’d like to see is a parallel 
printer port that would handle a standard Centronics printer. The more expandability it has the more saleable 
the computer will be. The character set needs some refinement from what we saw and comments we heard 
at the meeting. The 3x5 pixel characters in low resolution provide 40 characters by 24 lines. Most people 
remarked that they would like to see higher resolution. As we remarked earlier, this was a lab-development 
model. More bells and whistles will be added by the time the assembly line gets cranked up. E.F. Johnson, 
the electronics firm in Garner Iowa is said to be gearing up for prototype production. 
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The advantages of Zgrass, a graphics language, is that the graphics handling is done by a language that 
was created for just that purpose. Commands for screen manipulation have been tied in with screen inter¬ 
rupts and display techniques so they’re executed much faster and more efficiently than any TRS-80, Apple or 
Atari could ever hope to do. The add-under will access the custom chips in the Bally Arcade, which will 
facilitate moving graphics commands thru the Z80 microprocessor. Just as the Bally originally was accessi¬ 
ble to “hacking” once we figured everything out, it looks like the Zgrass-32 will have the same ability with as 
many expansion peripherals attachable as possible. For instance, a parallel port, a serial port, expansion 
port, disc connector, and dual cassette controllers. The same foresight appears in this design that was in the 
Arcade’s 50 pin expansion connector. 

We also got a look at the science math package, a software feature that’s built-in and is not common in 
any other computer, featuring 13 digit accuracy. Scot demonstrated the sine and cosine features and drew 
several concentric circles for us. The Screen Editor allows you to use the joystick to move the cursor 
anywhere on the screen and use the knob and trigger to insert spaces or remove characters. You can do the 
same thing with the keyboard using left-right and up-down arrows and you can type in corrections directly 
over the errors. With many computers you have to go looking for a program using addresses to find macros 
or information off a disc. You have to direct the flow. But the Zgrass-32 maintains all internal control to save 
any macros or variables on tape or disc for you in one clean sweep. In other words it does all your 
housecleaning for you. The computer already has the software built in to handle multiple program storaqe 
and variable allocation with just a simple command. 

Zgrass in no way resembles Basic. It uses no line numbers. It’s easy to learn. And it will write better pro¬ 
grams for the person who wants to see the program come alive visually rather than just print text. Basic was 
written to teach programming to computer students. Zgrass was developed from the start to do computer 
graphics. You get it as standard equipment in the Zgrass-32 for only $599.00, plus the price of your Bally Ar¬ 
cade that must rest on top of it ($299.00). Everybody was amazed at what it would do for its total cost of 
$898.00 (both modules together). When you compare this machine with its 32K RAM and 24K ROM with a 16K 
Apple II Plus that runs $1195.00, it seems like a bargain. As the software appears on the market to make the 
Zgrass-32 do the things it was designed for, our impression is that it’ll be an item in high demand at your 


THEY’RE HIGH ON ZGRASS - Kim Moses, 
George Moses (her dad), Brett Bilbrey, the 
Zgrass-32 Computer, Scot Norris, Dave Ibach and 


THE CIRCLE drawing function is shown here. Also 
notice the self help “PROM PT” function of the 


Craig Anderson. 


Zgrass-32. You can see some of the 3x5 character 
(^ 3 set displayed in this photo. 
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Videocaoe Games 

Hand Controls 




1064 N. Alta Ave. - Dinuba, CA 93618 


The Central and Upper 
Midwest BaIIy^AstroUision Club 
(CUMBfiC), formed in anticipation of 
the "comeback" of the Bally system, 
is nou» conducting a membership 
drive. We've located the regional 
AstroUision rep and are.contacting 
dealers as they come on the line. 
We've got a core group based on tuio 
years of mailing Iists and 
correspondence, and are publishing 
a newsletter shortly which will be 
distributed by mail and in the 
stores (dealers) to users in 
Minnesota,. Wisconsin, Iowa, North 
and South Dakota. We' I I be holding 
an “Astrofair" in May - details to 
follow. Interested users please 
write us at: 

CUMBRC 

P.0. Box 21151 

Saint Paul, Minn. 


55121 


_ y -any tnanks to Jay Fenton who mad< 
rebruary meeting a memorable one. 

Jay met with our group before lec 
mg at the main CACHE meeting. Durin 


meeting he showed 
BASIC and a ?K TSi 
TERSE unit was ons 


5 a video tape on 
‘ keyboard unit. 

>f the several ore 



oype add-on units. He also demonstrated 
three new videocades, which will be avail¬ 
able in Marchs Bio-rhythms, Music Maker, 
and Crand Prix. 


At the main meeting. Jay ran a video 
tape on the UV-l Zgrass unit, shared a 
few of his favorite programs and discuss¬ 
ed the Zgrass programming language. He 
also brought along his latest project, 
GORF._ CORF is a commercial video arcade 
game in which the player tries to get 
through a five-episode space adventure. 

It also incorporates a speech synthesizer. 

I’ve heard several interesting things 
about the Zgrass 32 unit. The Zgrass disk 
system will be compatible with the TRS-SO. 
The 32K RAM addition is intended so that 
the user can run CP/K and bypass the res¬ 
ident RCM. Therefore, the Z80 will be ad¬ 
dressing a full 64K RAM; the new add-on 
will have a built-in assembler. 


USER GROUP DATA/' CHICAGO Latest word is that Rusty Blommaert and Larry 
Smith will be demonstrating their keyboard and memory add-on at the 
National Computer Congress, to be held at Me Cormick Place, Chicago, May 
4-7. They wilI be a part of the CACHE group exhibit. 
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1 .MIKE PERCE PRESENTS 

2 .WAUEMAKERS MEMORY D00DLE 

10 :RETURN ;FC=RND C32 )b8;BC=RND (32 )b8-1;CLERR ;&<9)=255 
20 A=0;B=0;PRINT ;CX=-45;NT=0;PRINT "MEMORY DOODLE 

100 FOR X=49T0 5G;NT=X-40;MU=X;NEXT X;FOR Z=1T0 G75 
110 IF &C16)fl=R+JXC1)b2;B=B+JYC1)b2;G0T0 120 
115 GOTO 110 

120 C=(R+80)c2;@(Z)=Cbl00+B+44 
130 BOX A, B, 2,2,3;IF TRC1)GOTO 150 
140 NEXT Z 

150 FOR X=75T0 60STEP -2;NT=7G-X;MU=X;NEXT X;CLERR RETURN 

155 FOR X=1T0 Z;IF TR(1)RUN 

1G0 R=@(X )cl00b2-80;B=RM-44 

170 BOX A,B,2,2,3 

180 NEXT X;GOTO 155 

ISO FOR X=1T0 300;NEXT X;GOTO 155 
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I PROGRAM REWARD We are going to provide an on-going stipend 
of the 'best program' in each issue of the RRCRDIRN. I un I I 
each issue to a group of five judges who will make some dec is 
> of those programs they feel is the 'best', and the selected 
>eive S100, courtesy of AstroUision. The author will replace 
jes on the panel, allowing for rotation of that job. 

I scheme has yet to be ironed out, and some changes may take 
we actually start, but I wanted to pass this word to you s 
j|d think of some programs to submit. The first programs 
1 under this scheme will be in issue Eight. 
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110 

130 

140 

150 

170 

200 

210 

220 

230 

250 

2B0 

280 

230 

400 

4S0 

500 

600 

630 

640 

660 

670 

680 

630 

810 

830 

840 

850 

860 

870 

8S0 

890 

900 

910 

920 

930 

1020 

1025 

1030 

1070 

1080 

1090 

1100 

1990 

1995 

2000 

2010 


.COMPUTER TWIXT 
.BY JOE PIPEK 8-80 

@C1)=2;@C2)=l;@C3)=-l;@(4)=-2;@(5)=-2;@(6)=-l;@C7)=l;@(8)=2 
@C 11)=1;@C 12)=2;@C13)=2;@C14)=1;@C15)=-1;@C16)=-2;@C17)=-2;@C18)=-1 
@C 22) = 1;@C23) = 1;@C 24)=2;@C 25)=3;@C26)=3;@C 27)=3;@C 23)=4;@C 29)=5;@C 30)=5 
U=39;CLEAR ;FOR Y=-UTO USTEP 6;FOR X=-UTO USTEP 6;BOX X,Y,1,1,1;NEXT X;NEXT 

i BOX U,U,1,1,3;B0X U,-U,1,1,3;BOX -U,U,1,1,3;BOX -U,-U,1,1,3 
CY=22;CX=-68;TU=49;A=-52;B=22;GOSUB 500;CX=52;TU=50;A=68;GOSUB 400 
CY=30;CX=-64;TU=95;CX=-57;TU=97;CY=18;CX=62;TU=96;CY=25;CX=62;TU=94 
D=0;A=3;B=3;W=0 
D=CD=1 ) + l 

CY=0;CX=-68+CD=2)bl20;TU="t";CX=-68+CD=l)bl20;TU=" " 
A=6bJXCD)+A;B=6bJYCD)+B;IF A<-33A=-39bCD=1)-33bCD=2) 

IF A>33A=39bCD=l)+33bCD=2) 

IF B<-33B=-39b(D=2)-33b(D=1) 

IF B >33B=39b(D=2 )+33b C D=1 ) 

BOX A,B,3,3,3;BOX A,B,3,3,3;IF TRCD)=1 IF PXCA,B)=1GOTO 260 
GOTO 170 

GOSUB 500-C D=2)b100;IF C ABS( A)=39)+(ABSC B)=39)W=1 
IF W=1C=0;P=A;R=B;K=3;Q=3;H=1;GOSUB 1020 
GOTO 140 

BOX A,B,3,1,1;BOX A,B,1,3,3;GOSUB 600 
RETURN 

BOX A,B,3,3,3;GOSUB 600JRETURN 

FOR E=1T0 8;X=A+@(E)b6;IF X<-39bCD=l)-33b(D=2)G0T0 690 
IF X>39bC D=1)+33b(D=2 JGOTO 690 
Y=B+@C E+10)b6;IF Y<-39b(B=2)-33bCD=1)GOTO 690 
IF Y>39bCD=2)+33bCD=l)G0T0 690 
IF ABSC A)=39IF ABSCB)=39G0T0 690 

IF PXC X,Y)#1IF PXC X+l,Y+l)=PXC A+l,B+l)H=30;Q=0;GOSUB 810 
NEXT E;RETURN 2020 IF C#0IF P=AIF R=BRETURN 

2030 C=1;IF P=-39K=-1;GOTO 2070 
2040 IF P=39Q=1;GOTO 2070 
2050 IF R=-39K=-1;GOTO 2070 
2060 IF R=39Q=1;GOTO 2070 
2065 GOTO 1020 -- -i 


2070 P=A;R=B;C=0;H=Z;IF CABSCR )=39)+CABSCP)=39) = 1G0T0 1100 
2080 GOTO 1020 


=1IF S=HRETURN 


FOR S=22T0 H;IF X-A=12P=S-20 
IF X-A=-12P=20-S 
IF X-A=6P=@CS) 

IF X-A=-6P=-@CS) 

IF Y-B=12R=S-20 
IF Y-B=-12R=20-S 
IF Y-B=6R=@CS) 

IF Y-B=-6R=-@CS) 

BOX A+P,B+R,1,1,3;IF 
IF Q=1NEXT 5 

IF PXCA+P.B+R)=0Q=1;H=S;GOTO 810 
NEXT S;RETURN 
IF K+Q=0GOTO 1100 

FOR S=HTO H+7;M=S-8bC S>8);L=P+@C M);0=R+@C M+10) 

BOX L,O,1,1,3;BOX L,0,1,1,3 

IF PXC L,0 )=1P=P+@C M)b6;R=R+@C M+10)b6;H=M-3bC M>3)+5bC M<4);GOTO 2000 
IF C=0IF 5 >7RETURN 
NEXT S;RETURN 

CX=CD=2)b48-CD=l)b73;PRINT "WINNER 
IF TRC1)GOTO 10 
GOTO 1990 
IF C=0Z=M+1 

IF Z>9RETURN ^ 

<oo - 
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UIPER (Uideo Image Processing Equipment Rack) SYSTEM 

The System One contains one 16K RAM card, one bus interface card, one 
UIPER One cabinet (aluminum), one card rack, one +/- 5 volt and +12 volt 
power supply (fused), one UIPER to Bally 50-pin bus cable, one switched AC 
outlet, one on/off indicator switch. 

The System Five contains 16K RAM card, UIPER system interface card, 
heavy duty +/- 5 volt and +12 volt system power supply (fuse protected), 
one UIPER Five cabinet, one UIPER to Bally 50-pin bus cable, one five-slot 
motherboard with gold plated connectors, three status indicator tri-color 
LEDs, one UIPER keyboard input, one 5-slot card rack with guides and fan 
mount (fan optional ), one switched AC outlet, one on/off indicator switch. 

System Ten contains the System Five plus one UIPER Ten cabinet, one 
extra five-slot motherboard with gold plated connectors, one extra 
five-slot card rack with guides and fan mount (fan optional ), one extended 
44-pin UIPER to UIPER bus cable, one on/off indicator LED. 

The UIPER System keyboard is a 62-key unit that is ASCII-coded, upper 
and lower case letters, two user-defined keys, parallel to serial UIPER 
interface card (this interface card is adaptable to other keyboards), one 
■aluminum cabinet, one coiled cable with DIN connector, one status indicator 
LED. 

UIPER Interface card details: This card contains the following: eight 
I/O ports to control system operations, a IK ROM monitor that is socketed 
to allow easy upgrading to a 4K ROM, a 12-2400 baud audio cassette 
interface with programmable speed selection, one keyboard input port for 
the UIPER keyboard, one memory management system to allow up to 128K bytes 
of RAM expansion, one independent 5-watt audio amplifier with volume 
control with S ohm speaker output and two pre-amp outputs, one audio 
dubbing-recording mode for mixing program tapes with voice, music, and 
sound effects, audio samp I ing/ and detecting in two frequency ranges for 
elaborate audio/visual synchronization. Also includes address, data, and 
control -I ine buffers and bus inputs from computer expansion port. 


UIPER RAM card details: This card is a 16K addressable RAM board in 
4, 8, or 16K blocks. It is designed with the Interface card for extended 
memory addressing up to 128K bytes (use up to 8 RAM boards), multifunction 
8-position switch pack for enabling and disabling Bally memory areas, and 
on-board clock select. 


All printed circuit boards are of the highest quality, with 
pIated-thru hole integrity throughout. All boards are fully socketed with 
gold plated sockets, and all connectors and fingers are gold plated. 


Prices - all units are assembled and tested. 

System One will be available 1 May 

System One 200. 

16K board 135. 

The remainder of the units will be available 31 May 
System Five (w/o RAM) 280. 

System Five (+ 1GK) 395. 

System Ten addition 150. 

Keyboard addition 145. (o^ 


The basic RAM board and 


Para I lei to Serial board 
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For Sale: Blue Ram with documentation and software $125; Cartridges: 

Clowns/BasebaI l/Footba! I at $15 each; Seawolf and Maze at $12 ea. fll I in 
perfect shape. Robert Jaeger, 58 Millay Rd., Morganville, NJ, 07751. 

Super Software now offers all Uideocades and ftrcade units at low discount 
prices. fill 2S.S5 Uideocades are 25. fill Arcades (including the new BASIC 
cartridge) are 260. We also offer a full line of programs for the Bally 
Arcade. For information, write Super Software, 44 Farestbrook Dr. North 
Plainfield, NJ 07060 

SALVAGERS Trade good U-17 (Custom Address) for good U-18 (Custom Data). 

Also need one-chip ROM (reasonable) Richard Dermody, 6431 Timber Glen, San 
Antonio, TX 78250 

FOR SALE Baily Professional Computer. Almost new, just used a few times. 

Two controllers. $250 or best offer. Submit all offers Philip Lowe, 12611 
PresneI I St, Los Angeles, CA 90066 

Complete modification kit for your Arcade- $8.00; Assembled and tested 
Kludge, $10.00 (extra parts needed included with both) Add $25 for new Data 
chip- and $1 for postage and handl ing. Barry El Ierson 5017 River Rd., 
Schiller Park, IL,60176 
(story and schematic in next issue) 

Bally factory games and accessories - special discount to ARCADIAN 
subscribers. For free price list, write to SFP, 1064 N. Alta Aue., Dinuba, 

CA 93618 

The following tape ($7.95 + .50 post) is one of many available from 
WAUEMAKERS, Box 94801, Schaumberg, IL 60193. Write for their catalog. 

PROGRAM TAPE #2. 

SIDE 1 CLUE - BASED ON THE MILTON BRADLY GAME. YOU INPUT NUMBER OF PLAYERS (DETECTIVES). YOU GET A CHOICE OF 
TWO ROOMS TO GO TO OR YOU CAN TAKE A CHANCE AND GET IN A ROOM NOT SHOWN. YOU CHOOSE THE WEAPON FROM THE 
ON-SCREEN LIST. THE COMPUTER TELLS YOU ONE OF THE FOLLOWING, WRONG SUSPECT, WRONG ROOM OR WRONG WEAPON. 

YOU MUST USE DEDUCTIVE REASONING TO COME UP WITH THE RIGHT COMBINATION AND SOLVE THE CRIME. THERE ARE NO 
GRAPHICS BUT THIS ADDS UP TO HOURS OF FUN. CAN BE PLAYED BY ANY NUMBER OF PLAYERS. 

SIDE 2 FLYING ACE FOR (1) OR (2) PLAYERS THIS GAME PUTS YOU IN THE COCKPIT OF A FIGHTER PLANE CHASING AND SHOOTING 
AT THE ENEMY. YOU MUST SHOOT THE ENEMY DOWN QUICKLY TO GET THE HIGHEST SCORE. 

CHALLENGING GAME WHEN PLAYED WITH A GOOD OPPONENT. 
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*100 ARCADIAN PROGRAMMING CONTEST As announced in the last is . ue 

::: r t: r:; 9 rsri * hich r n p ™ the 

decision as to^hich is’thlbest"" the contest mill be the judges' 

are minimal and + u„ ® best Program in that particular issue. Rules 

programs to be original with the^uthor 9 *° r ® Str lct 1Gns ■ We do ujant these 
•ith your submission. There wtu be Jlue "d aSkin9 ^ y ° U S ° State 
following volunteers will preside- Craio2*1' and l n the beginning the 
Moses, fll RathmeI I , and Dick Strauss One of thos! rS °i,’ d Ib ° Ch ’ Ge ° rge 

:: st a — - --nrV 

rotating, and the winner will be out of c ircu I atTon^or^btt" ‘ ^ 

printer, thosT pro'grl^to'be^'VI^ th " flRCflDIfiN *» -hedu.ed for the 
day a I so starts th. next cycle of or b “ sant t0 tha J uel 9«- That 

s:: Jr r 

• 100 sent with his/her copy. Each le^ rnl N ‘«*"«. «nd a check for 

no carryovers, no delays. herefore stand on its ouin, 

contest, please U ".’d b r,‘ono H!T ‘T-T “° U ' d ' ‘ k “ ”"»‘ d —d for th. 

■ I. trvr.!ri„:;*z:, 1 r rtifu that the *"■>•* 

program, signed-- S an 13 not a co Py of on available 

nroadlan, buAould ™rbe"!l g !bTi°^tacort«t! r ‘ St ‘" th<! 


LATEST NEWS: fiSTROUISION BASIC, to be provided free with all new Arcade 
units Cbox will read ARCADE PLUS), was approved and sent to be manufactured 
on April 14. Should be 8-10 weeks for delivery. The data transfer rate 
has been increased to 2000 baud. The method of transmission has been 
c anged, which is why a standard tape recorder can still be used. We will 

nrcrnr . ^ °“ r °‘ d ’ 300 baud tapes Into the new Basic. Then those 

programs can be dumped to tape via the new interface jack at 2000 baud 
For the Hackers’ out there who want to experiment, we' I I have the 

I H r 3 ^ C ° mments ’ for ® 7 PP d CAstroVision BASIC 

9 ’’ . 0nd ° IS ° a descript ion of all new commands with comparisons to 
Bally Basic (20 pages) for $2.50 ppd CAstroVision BASIC Guide). We'll be 
course" 9 ^ C ° mmandS and features in tutorials in the ARCADIAN, of 

Obviously, those who seriously wish to continue selling programs will_ 
hove to provide them ,n both formate. Thie I.ode me to odvielng u ” “hit" 
have -L 6 . rS1 ° nS of the languages used in the Arcade, and we'll 


e to make some changes in the ARCADIAN to be able to handle everything, 
e moment, we II be indicating which Basic a program is written in by 
no a ions B for Bally Basic, 'AB" for AstroVision Basic, and “XB“ 


the 

for Extended Basic. 


©iSgl Rahc.t 
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MOTHERBOARD MODIFICATIONS The Following changes are recommended if 
your machine has any of the listed symptoms. The author, Barry Ellerson, 
has sent us some “inside information", and can provide a small, built-up 
addition, ready for instaI I at ion. Check his ad on p.80 

If your unit has these symptoms: Screen Tearing, Loss of Horizontal 
Sync. on warm-up. Unit goes Dead - or keeps Resetting after warm-up, then 
the following modifications will correct them. If your unit went 
completely dead following these symptoms, these modifications will probably 


repair it. 


NECESSARY MODIFICATIONS 
1. Replace 74LS74 CU-16, Clock) with 74S74. 

NOTE: Be P, sCre Dr to er hIft G1CU " 32 ’ 8 “ pin ’ c,ock > " ith Kludge board assembly. 

s,d.d II „ L P ‘" S ,n ° U9h *° ° OUSe S °' d »r '">■ ‘round doubhg 

»h. b.<,rd ",«r m ° y iv* if thsr * is ° ^ =n« 

h.at ; U b °r'- p?dL cr ““;L;. ext8nd ,'r ds ■ co, '* r - 

75361 °driwer° P °r f “p^d'-tr' nTT' C °™ “ h “" «‘»B 

HVol. h *" lnSt °" ° nd S ° ld "' Klud S“ <■»*<"*'«• Cut off’otcbss itro 

=dp 3 uc lt „ r R,m ::;. re c;*::; — P i... JUm p. r » hsr , 

b.dn done bg the foctoryT “ **‘ St ° n U ° Ur b »^d, or tht. nog hove 

J; orTorglr 0 ”” r ° S1St ° r R_I <1B '' SUPf " 9 - l “> »“* « « "hn. res Istor, 

si 

properly heat sunk, after cutting a hole'in the^op'shleM ' b ‘ ^ C °’° P ’ ^ 

' Replace 82 ohm resistors in clock (R-12,13) with 47 ohm resistors. 

1 Put I 0 ™ M ° DIFICftTI0NS USEFUL BUT NOT ABSOLUTELY NECESSARY 

2 If C-19 J ( T/m U,ire r fr ° m Cathode CR-3 to ” + “ end of C-S. 

V rh CI 0) 13 glass, orange and black, replace. 

^ ^ fi ' 9 ° ff Protruding leads, 

or not tor ri/ ? ^ I*x2“) is high resistance type ( 

S p u ! K + ^ PlaCe With new st y |e > resistance. 

*• Put hot melt wax on base of key pad. 

6. Replace CR-3 to -6 with schottky 1N5817 or equivalent. 

The wiring schematic for the Kludge board follows. V 

lC«7Mlfc R,*= fcv * 680 .*. «5..<9 l WM , ^OI 


tape, 


*5 
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PRECAUTIONS 

l.Do not wear nylon clothes. Work in a static-free environment, 
preferably grounded. 

2.If the unit is operated outside of its case, short across C-6 before 
further handling. Inadvertent shorting to other points on board could blow 
' components. 

3.Check to be sure metal bushings in bottom shield pan do not short 
, across any foils. 

4.Check on-off switch for center lead that extends beyond board edqe 
as it could short to the shield pan. 

5.Check 5u. heat sink for good mechanical contact and check clearance 
of spring clips and board foils. 


mwmmi 



I 0 Game Cartridge Connector 


t ,Replo.oe C uiiti mu* 


pc board of Kludge: 


5 .STRAIGHT LINES 
S .JIM DUNSON 12/78 
7 . 

10 CLEAR ;T=0;NT=0;N=0;FC=BC-1;EC=RND (32)b8;S=RND (20) + 10;R=RND (3);C=R 
20 M=X;GOSUB 40;GOSUB 50;N=X;GOSUB 40;GOSUB 50;T=T+1;IF T=SFOR D=1T0 1000;NEXT 
D;GOTO 10 
30 GOTO 20 

40 X=RND (14)-7;RETURN 
50 A=MbS;B=Nb6;IF R=2 C=RND (3) 

60 LINE A,B,C;RETURN 
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ALTERNATIVE ENGINEERING regrets to announce a delay of the VIPER system. 
However uie are glad to announce that the delay is due to the addition of a 
keyboard interface to the VIPER System One and an additional feature to 
the 16 K RRM board. 

The RRM board wi I I now allow you to load the new Extended Basic 8K tape 
into the RRM and use the other 8K in which to run programs. Once loaded, 
you can run either Extended Basic or Bally Basic because they are 
compatible. You can even load Bally Basic programs while running your 
Extended Basic and when you execute the old program it will run 4-6 times 
faster. 


The System One Interface Card will now include the same UIPER keyboard 
input port as the System Five. The two systems will be software and 
hardware compatible. We wish to thank everyone for their continued 
interest in the UIPER System. Rdding these features at this late stage was 
a hard decision to make but because we want to give you the Extended Basic 
on tape and a port for a keyboard we think that this delay will be worth 
it. The revised price of the System One will be $225. only S25 more than 
it was without the keyboard port, automemory write-protect circuit, or the 
Extended Basic tape. _ 


Rlternative Engineering, P.O.Box 128, Gardiner, ME 04345 
(207) 622-5205 (207) 582 6327 


Editorial Notes- Rfter a number of inquiries came in as a result of last 
month s ad, the Rlternative Engineering designers decided that there was 
enough demand for a keyboard interface at the System One level In 
addition, they had to ensure that if the Extended Basic was loaded into 
half of the available memory, that there was no chance of it's being lost 
while a program was being set up or run in the other half. The System One 
card requires two additional chips to do this, and the rework to the 
printed circuit board is causing a delay of 4 to 6 weeks. The prototype has 
been operating, and Bally Basic programs have been loaded into Extended 
Basic and since screen memory is no longer utilized, the programs operate 
much faster. The Introductory Prices, stated on page 61, 
effect except for System One, which is now $225 (and 
Basic ). 


are still in 
includes the Extended 


SUB HUNT - YOU COMMAND THE DESTROYER IN AN ATTEMPT TO LOCATE 
AND DESTROY THE ENEMY SUBMARINE FLEET. FIRST, YOU WILL BE ASKED 
WHAT THE WINNING SCORE SHOULD BE. ENTER THIS THROUGH THE KEYBOARD. 
THIS IS A ONE PLAYER GAME AGAINST THE COMPUTER. A COMPUTER SUB 
IS SUBMERGED SOMEWHERE ON THE GRID. ON EACH TURN HE WILL EITHER 
MOVE OR FIRE TORPEDOES. IF HE FIRES, HE MUST REVEAL HIS LOCATION. 
YOU USE THE JOYSTICK TO CONTROL YOUR MOVEMENT, UP, DOWN, RIGHT, 
LEFT, OR DIAGONAL. AFTER YOU TWEEK THE TOP, A LOUD BEEP IS HEARD. 
MOW COUNT “ONE SUBMARINE, TWO SUBMARINES, ETC" UNTIL A SOFTER 
BEEP IS HEARD. THIS REPRESENTS THE DISTANCE TO THE SUBMARINE. 
SONAR!! NOW YOUR CREW FIRES DEPTH CHARGES INTO THE TWO SQUARES 
IN FRONT OF YOU. MOVE AGAIN. GOOD LUCK. 
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3 . 

4 . 

5 . SUB HUNTER 
S . BY BOB WISEMAN 

10 CLERR ;GOSUB 9000 
20 GOSUB 1000;GOSUB 2000 
30 GOTO 20 
1000 U=C;U=D 

1010 L-JX(1);M=JYC1);N=TRC1) 

1020 IF L=0IF M=0IF N=0GOTO 1010 
1040 NT=30 

1045 H=ABSCD-F)+ABSCC-E) 

1050 MU="Q";FOR I=1T0 500bH;NEXT I 
10S0 NT=4;MU="Q";NT=0 
1070 FOR I=1T0 400;NEXT I 

1100 IF (C+L<1)+(C+L>7 )+(D+M<1)+(D+M>5)GOTO 1800 
1110 C=C+L;D=D+M 

1120 X=C;Y=D;GOSUB 8300 !9005 &(23 )=200 

1130 X=X+L; Y=Y+M -- ~ " 3010 INPUT "ENTER # OF GRMES"G 

1140 IF (X<1) + C X>7)+( Y<1)+C Y>5)GOTO 1200'9020 CLEAR ;FC=134;BC=1G9 
1150 GOSUB 8300 9025 A=0;B=0;S=0;T=0 

1200 X=U;Y=U;GOSUR 8200 —9030 FOR X=-25T0 25STEP 10 

1210 GOSUB 8000;GOTO 1990 -- “ 

1800 NT=10; MU="#"; MU=‘ r X" ;NT=0; GOTO 1010 
1990 RETURN 

2000 IF RND (10)>7G0T0 2500 
2010 L=RND (3)-2;M=RND (3)-2 
2015 IF L=0IF M=0GOTO 2010 
2020 X=E+L;Y=F+M 


NT=0;&(23)=200;&(20)=0;&( 21)=0 
8805 GOSUB 8950 
8810 T=l;GOSUB 9500 
8820 GOSUB 8200;C=1;D=3 
8830 GOSUB 8000 
8840 X=H+I 
8890 RETURN 
8900 CX=10bX-40 
8910 CY=10bY-30 
8920 RETURN 

8950 &C21 )=255;GOSUB 8900 
8960 PRINT 21 )=0 

8990 RETURN 

9000 NT=0;PRINT ;PRINT ;PRINT "SUB HUNTER- 


9040 BOX 0,X,71,1,1;NEXT X 
9050 FOR'X=-35T0 35STEP 10 
9060 BOX X,0,1,51,1;NEXT X 
9070 C=1;D=3;E=7;F=3 
9080 GOSUB 8000 
9100 RETURN 
9500 CX=-75;CY=-40 
2030 IF (X<1) + CX>7)+(Y<1 )+CY>5 )GOTO 2010 9510 IF SPRINT “GOOD SHOT 


2040 E=X;F=Y;GOTO 2990 
2500 H=7;1=1 
2510 IF C<E H=1;I=-1 
2520 Y=F 

2530 FOR X=ETO HSTEP I 

2540 GOSUB 8700;NEXT X 

2990 NT=100;MU=99;NT=0 

3000 RETURN 

8000 CX-10bC-40 

8010 CY=10bD-30 

8015 PRINT "a",;RETURN 

8200 GOSUB 8900;PRINT " ",;l 

8300 GOSUB 8950 

8340 IF X=EIF Y=FGOTO 8400 

8350 GOTO 8690 

8400 S=l;GOSUB 9500 

8410 E=RND C7);F=RND (5) 

8690 GOSUB 8200;RETURN 

8700 GOSUB 8900 

8705 &(23)=50 

8710 &C 21)=50;&( 20)=255;NT= 
8720 IF X=CIF Y=DGOTO 8800 

8730 PRINT 21 )=0 

8731 NT=0 

8735 &(23)=200;&(20)=0 
8740 GOSUB 8200;GOTO 8890 


" ,#2,B 


9520 IF TPRINT "YOU ARE SUNK" 

9530 CX=-75;CY=40 
9540 A=A+S;B=B+T;S=0;T=0 
9550 PRINT “3HIP=“,#2,A,” SUB= 

9552 CX=-75;CY=-40 
9554 FOR N=1T0 1000;NEXT N 
9556 PRINT " 

9560 IF A<GIF B<GRETURN 
9600 CX=-75;CY=-40 

9610 IF A=GPRINT "GOOD JOB CAPTAIN", 
9620 IF B=GPRINT "YOU ARE DESTROYED” 
9630 STOP 


Bob Wiseman 

118 St. Andrews Dr. 

Cineinnati,,OH 45245 


;PRINT 
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1 :RETURN ;E=9000;E=1000;H=2000;1=7000;J=5000;L=3000;0=3000;P=4000 
10 CLEAR ;BC=RND (256 );FC=BC+4;S=4;B=327G7;W=60;GOSUB 10000;CLEAR ;GOSUB F;Q=3 
0;A=0;GOSUB H;U=A 

15 CY=40;PRINT "POPULATION= ■,*1,A,■,000 

20 R=0;W=W-20;IF A<93CY=-25;PRINT “YOU LOSE!’;GOTO I 

30 PRINT “YOU HAUE “,#1,Q,“ MISSILESPRINT “ENEMY HAS “,#l,Sb5,“ MISSILES’;B= 
A;FOR Z=1T0 H;NEXT Z 

35 IF S=0IF U-B<100CY=-25;PRINT “YOU WIN*;GOTO I 
40 IF S=0CY=-25;PRINT “YOU LOSE!’;GOTO I 

50 BOX 0,10,160,67,2;PRINT “****** ENEMY ATTACK ******“;&(16)=49;&(17)=243;&(1 
8)=244;&(19)=245;&(21)=15;NT=0 

60 &(22)=255;&( 23)=10;FOR Z=1T0 H;NEXT Z;BOX 0,10,160,67,2;GOSUB L;Y=W;FOR Z=1 
TO 5;BOX @( Z),Y,1,3,3;NEXT Z 

65 Y=Y-1;&(16)=Y+74;FOR Z=1T0 5;IF @(Z)=0GOTO 100 Bob Weber 

70 IF PX(@(Z ),Y-l)NT=0;GOSUB O 6594 Swortout Rd 

80 IF PXC @(Z),Y)=0@(Z)=0;GOTO 100 Algonac, MI 48001 

90 BOX @(Z),Y-1,1,1,1;BOX @(Z),Y+2,1,1,2 
100 NEXT Z;IF Y<-38G0SUB P;GOTO 140 

110 IF TRCDIF R=0IF Q >0Q=Q-5; R=I; GOSUB P;N=-30;FOR M=6T0 10; BOX @(M),N,1,3,3;N 
EXT M 

120 IF R=1G0SUB J 
130 GOTO 65 

140 A=0;GOSUB H;IF B-A=0CY=0;PRINT “NO LOSSES“;GOTO 160 
150 CY=0;PRINT #1,B-A,“,000 KILLED 
160 S=S-1;GOTO 15 

1000 BOX 0,-42,160,3,l;FOR G=-80TO 79STEP 3;BOX G,-38,RND (5),3+RND (6 ) ,1;FOR N= 
1T0 2 

1010 BOX G,-32-RND ( 9 ), 1,RND CZ),2;NEXT N;NEXT G;RETURN 

2000 GOSUB E; BOX 0,5,160,75,2;CY=40;PRINT “COUNTING POPULATION 

2010 FOR Y=-37T0 -34;F0R X=-80TO 79;IF PX(X,Y)A=A+1 

2020 MU=A;NEXT X;NEXT Y;IF A>B A=B 

2030 NT=0;RETURN 

3000 FOR Z=1T0 5 

3010 A=RND (150)-75;FOR C=1T0 5;IF (@(C)=A)+(A=0)GOTO 3010 
3020 NEXT C;@CZ)=A;NEXT Z;RETURN 
4000 FOR Z=6T0 10 

4010 A=RND (150)-75;FOR C=6T0 10;IF @(C)=AGOTO 4010 
4020 NEXT C; @( Z )=A;NEXT Z;RETURN 

5000 N=N+1;FOR M=6T0 10;IF PX(@(M),N)=0GOTO 5030 

5005 IF JXCDBOX @(M),N-1,1,3,3;@(M)=@(M )+JX( 1); BOX @(M),N-l,1,3,3 
5010 BOX @( M ),N+l,1,1,1;BOX @(M ) ,N-2,1,1,2 

5020 IF N >=Y&(21)=255;&(16)=1;BOX @CM ),N,9,9,1;BOX @(M),N,9,9,2;FOR D=1T0 500;NE 

XT D;&(16 )=Y+74 

5030 IF N>Y+1R=0 

5040 NEXT M;&(21)=15;RETURN 

7000 CY=40;PRINT "ORIGINAL POP, = ",#1,U,",000 

7010 PRINT “TOTAL LOSS = “,#1,U-A,", 000“;PRINT “PRESS ANY KEY TO PLAY AGA 

IN*;IF KPRUN 

8000 &(21 )=255;&(16)=0;FOR D=1T0 7 

8010 BOX @(Z),Y,D,D,1;NEXT D;BOX @(Z ),Y,9,9,2;FOR D=1T0 F;NEXT D 

8015 IF Y>-37&(22 )=15;RETURN 

9000 &(21 )=0;&(22 )=0;&(23)=0;NT=1;RETURN 

10000 PRINT “ STRATEGIC AIR COMMAND';PRINT ;PRINT “IF LOSS OF LIUES FROM";PRINT 
“ATTACK EXCEEDS 100,000, 

10010 PRINT “YOU LOSE! TO DEFEND GOTO TRC1 )&(KNC1)“;FOR Z=1T0 L;NEXT Z;NT=1;RET 
URN' / ■ " - 
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.CIRCLES 

.BY RON PICRRDI 

CLERR 

PRINT ;PRINT 

RLL CIRCLES' 



100 

105 

110 

120 

130 

140 

150 

IG0 

170 

180 

190 

200 

210 

220 

230 

240 

250 

280 

270 

280 

230 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

440 

450 

480 

470 

480 

490 

500 

510 

520 


PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 1000 
FC=BC 
BC=15 

FOR R=1T0 150 
X=X+1 

GOSUB 1100 
NEXT R 
GOSUB 1000 
FOR R=1T0 75 
X=X+2 

GOSUB 1100 
NEXT R 
GOSUB 1000 
FOR R=1T0 50 
X=X+3 

GOSUB 1100 
NEXT fi 
GOSUB 1000 
FOR R=1T0 25 
X=X+G 

GOSUB 1100 
NEXT R 

FOR R=1T0 500 
NEXT R 
GOSUB 1200 
FOR R=1T0 80 
Y=Y+1 

GOSUB 1300 
NEXT R 
GOSUB 1200 
FOR R=1T0 40 
Y=Y+2 ■ 

GOSUB 1300 
NEXT R 
GOSUB 1200 
FOR R=1T0 20 
Y=Y+3 

GOSUB 1300 
NEXT fl 
GOSUB 1000 
Y=3;C=2 
GOSUB 1400 
GOSUB 1500 
Y=6;C=3 
GOSUB 1400 
GOSUB 1500 
Y=10;C=4 
GOSUB 1400 


-X, - 


POP 


RRT" 

530 GOSUB 1500 
540 Y=1S;C=S 
550 GOSUB 1400 
580 GOSUB 1500 
570 Y=21;C=G 
580 GOSUB 1400 
590 GOSUB 1500 
800 Y=28;C=7 
810 GOSUB 1400 
620 GOSUB 1500 
630 Y=36;C=8 
640 GOSUB 1400 
650 GOSUB 1500 

655 Y=36;C=8 

656 X=0;B=0 


1100 &( 17)=Y;&( 18) = -Y 
1110 IF Y >0C=C-1 
1120 IF Y<0C=C+1 
1130 Y=Y+C 

1140 LINE X,Y,0;LINE 
1150 RETURN 

1200 FOR R=1T0 500 

1201 NEXT R 

1202 CLERR 

1203 &<220=255 
1210 X=0;Y=-40;C=10 

1220 FC=RND (32 )b8-2;BC=RND 

1225 LINE X,Y, 0 

1230 RETURN 

1300 &(17)=X;&(18)=-X 

1310 IF X>0C=C-1 

1320 IF X<0C=C+1 

1330 X=X+C 

1340 LINE X,Y,0;LINE 
1350 RETURN 
1400 X=0;B=0 
1405 LINE X, Y, E 


-X, -Y, 1 


660 FOR R=1T0 40 1410 FOR R=1T0 40 
670 LINE 0,0,0 1420 IF X>0C=C-1 


1430 IF X<0C=C+1 

1440 IF Y>0B=B-1 

1450 IF Y< 0B=B+1 

1460 X=X+C;Y=Y+B 

1470 &(17)=Xb2;&(18 )=Yb2 

1480 LINE X, Y,1 

1490 NEXT R 


680 IF X>0C’ 

690 IF X<0C=C+i 
700 IF Y>0B=B-1 
705 X=X+C 
710 IF Y<0B=B+1 
715 Y=Y+B 
720 LINE X,Y,1 
730 &(17)=Xb3;&(18)=Yb3 
740 NEXT fl 
750 GOSUB 1500 
760 CLERR ;&(22)=255 
770 X=0;Y=32;B=0;C=10 
780 FOR R=1T0 370 
790 IF X >0C=C-1 
800 IF X<0C=C+1 
810 IF Y>0B=B-1 
820 IF Y<0B=B+1 
830 X=X+C;Y=Y+B 
840 BOX X,Y,2,2,1 
850 &C17)=Xb3;&(18)=Yb3 
860 NEXT R 
870 GOTO 2000 

1000 FOR A=1T0 500 

1001 NEXT R 

1002 CLEAR 

1003 &(22)=255 

1010 X=-75;C=8;Y=0 

1015 &< 22)=255 

1020 LINE -75,0,0 

1025 FC=RND (32)b8-2;BC=RND C32)b8+2 

1030 RETURN 


Ron Picard 1 
630 Bacon R 
Saginaw, MI 


1495 RETURN 

1500 FOR A=1T0 500 

1510 NEXT R 

1520 FC=RND (32)b8-2;BC=RND 
1530 RETURN 

2000 PRINT ' POP RRT' 
2002 NT=3 


7 7 


(32 )b8+2 


48603 


<32)b8+2 
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MEMORY MRP - ftstroUision Basic: As of the date of printing, the va 
allocations of memory space in the available 4K are as indicated belou 
printed a similar map for the original Bally Basic in Vo I 1, p .34 
areas obviously different are indicated by an asterisk (♦). 

On Board ROM firea @ - 8191 0 - 1FFF 

BASIC ROM Area S 192 - 12287 pnnpi - ?rrr 


Screen Memory Area 

Graphics/Program Are 


1638-4 - 20479 


Scratchpad Area 


♦Variables start at 


20258 - 20415 


♦Line Input Buffer 
Text Array Area 


20154 - 20257 


text Hrray Area -2457S to -22777 A000 - A70C 

MACHINE CODE MYSTERY We've had veru faui machine code nroarams fo 


and I believe part of the problem has been the awkward entry of 
The following program by Al Rathmell makes the machine do all the 
swapping pairs of hex code, converting them to decimal, and POKE 
into memory slots. 


1. HEX POKER 

2. BY AL RATHMELL 

10 CLEAR; INPUT “START ADDRESS = " B 
20 PRINT #2, B, *=", 

30 FOR A = 1 TO 2; K = KP; TU = K; IF K = 112 tv = 13; STOP 
40 GOSUB 90 

50 IF A = 1 J = K x 16 This program was type. 

60 IF A = 2 K=J+K directly, and therefoi 

70 NEXT A; XCB) = K; B = B + 1 the small ' x' means 

80 PRINT #6, K; GOTO 20 "multiply". 

90 IF (K < 48) t (K > 70) GOTO 20 
100 IF K > 57 IF K < 65 GOTO 20 
110 K = K - 48; IF K > 9 K = K - 7 
120 RETURN 


The HEX POKER program is a smalI utility routine that wi 
a I Z30 Opcodes into memory one byte at a time. The 
is entered in decimal (such as using 20180, the BaIly Ba 


keypad. After the last byte, key 
routine, enter CALL B where "B" wa; 
Al Rathmell, 1643 Swallow Dr., Sui 


WORDS RETURN. To r 
the starting address 
yvale, CA 94087 
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EXTENDED BASIC We expect to make this neui language available in two 
versions: on tape, for those of you uiho will have a I ot of added memory; 

and on a ROM for those of you with a small added memory. To explain: The 

Extended Basic resides in 8K bytes. If you have lots of memory available to 
you, then you can afford to allocate 8K of that memory exclusively for the 
storage of the Basic, and use the rest of your memory for inventing a 
program that util izes that Basic. If you had 24K of memory, for example, 
8K would be language, and 16K could be program. You would have to load the 
Basic every time you wanted to use it. It is the cheaper way to obtain the 
Basic. 

If you have a Iimited amount of memory, then you want to keep as much 
of it available for writing programs. That person can purchase the Basic 
permanently located in a ROM chip, exactly as the Bally Basic is now. It 
would be inside a cartridge and would fit into the existing receptacle just 
like the Bally Basic does. The Ianguage will be the same and programs 

wiI I run equal ly we I I in either memory system (as long as the program 

f its ). 

Here is a I 1st of most of the new commands and features that wi I I 
appear in the Extended Basic: 

POINT and CIRCLE 

SNAP memorizes what is on the screen and stores it in an array. Later 
you can recalI the scene using SHOW 

NEW erases the program 

DEFAULT sets all variables to their original values. 

ZERO sets all variables to zero. 

DATA allows easier entry of variables 

SCROLL rolls the text up or down a specified number of lines 

Commands can be shortened (P. means PRINT) 

Conversion is available between decimal and hex and binary 

Four colors anywhere 

Additional character font size of 3x5 

A window can be set up of any size, anywhere, within which text can be 
placed and scrolled. 


UNUSUAL SOUNDS The following program was sent by Bill Loos, which, along 
with the list of variables, will provide some unusual sound effects. Make 
direct substitutions of the values of X and Y as recommended, either 


individually, or by grouping two or more 

10 INPUT X; INPUT Y; &(21)=15 

20 FOR A=X TO Y 

30 &(IS) = A; &( 18) = A 

40 &C20) = ABS(2xA); NEXT A 

50 FOR B = 0 TO 500; NEXT B 

60 &(18) = 0; &(19) = 0; &C20) = 

70 GOTO 10 


together. 

X = -255 Y = -224 

X - -223 Y = -182 
X = -181 Y = -160 
X = -153 Y = -128 
X = -127 Y = -38 

X = -85 Y = -64 

X = -63 Y = -32 

X = -31 Y =* -1 


Loos, 8583 Framewood Dr. Newburgh, IN 47630 

79 — 


Bil I 



ADS: 


PROGRAM TAPE #3 


SIDE 


MA7F RACE & OBSTACLE COURSE - BOTH GAMES ARE LOADED AT THE SAME TIME: 

S RACE ?sfTWO PLAYER GAME REQUIRING EACH PLAYER TO RACE THROUGH A MAZE WITHOUT TOUCHING A WALL. IF 
YOU^TOUCH ?w!l™0U ™0SE POINTS PLUS BLOW A HOLE IN IT WHICH YOUR OPPONENT CAN USE TO HIS ADVANTAGE. 


OBSTACLE COURSE IS PROBABLY OUR MOST POPULAR GAME SO FAR. IT REQUIRES A GREAT DEAL OF PRACTICE TO DEVELOP 
THE SKILL TO GUIDE A BALL THROUGH A COURSE. AFTER YOU COMPLETE THE COURSE THE FIRST TIME THE NEXT TIME 
GETS TOUGHER. THERE ARE SEVEN LEVELS PER GAME SET AND SEVEN GAMES PER SET. STARTING AT THE LEVEL ONE AND 
INCREASING EACH GAME. SO FAR NOBODY HAS MADE IT THROUGH ALL SEVEN LEVELS. BUT IF YOU DO, YOU CAN TRY THE 
INTERMEDIATE LEVELS OR PRO LEVELS. BEST OF LUCK YOU'LL NEED IT. 


SIDE 2 SPACE CHASE - USES FEW GRAPHICS, BUT GOOD SOUND EFFECTS AS YOU TRY TO GUIDE YOUR SHIP THROUGH 200 LIGHT 

YEARS TO YOUR DESTINATION. YOU MAY BE ATTACKED BY ENEMY SHIPS, RUN OUT OF FUEL,COLLIDE WITH METEORS, ETC. 
YOUR AT THE CONTROLS. WARP 1, WARP 2, WAIT FOR HELP,FIRE PHAZER OR EVASIVE ACTIONS, ITS A LONG WAY TO GO 
BUT A GOOD CAPTAIN CAN MAKE IT WITH A LITTLE HELP FROM FRIENDLY ALIEN. 


TAPES FOR SALE by WAUEMAKERS 

P.O. Box 94801 
Schaumberg, IL, G0193 

Price S7.95 plus .50 postage 



Complete modification kit for your Arcade - S8.00; Assembled and tested 
Kludge, S10. (extra parts needed included with both) Add S25 for new Data 
Chip - add SI for postage and handling. Barry El Ierson 5017 River Rd., 
Schiller Park, IL 60176 


8 O 


ARCADIAN 

Robert Fabris, on schedule 
3626 Morris Dr. 

San Jose, CA 95127 


FIRST CLASS 

U $ KDSTAGf 

PAID 

Sunnyval*, CA 
Pannit No. 831 
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the smallest object that can be shown on the screen. 


PRE-TUTORIAL 

The "pixel 

. i --- —snumn on xne screen. 

its actual size is determined by two things, the physical size of the TO 
screen itself, and the "resolution" that the computer is capable of. The 
Arcade will divide every screen into 16320 pixels, disposed at 102 high by 

ThLe W1< ?IU™ ° bwi ° U3, y’ the P ixel is therefore bigger on a bigger screen. 

hese 16320 pixels form the "low resolution mode", and by adding more 
memory (plus a few other items), the resolution can be increased to twice 
as many (medium resolution) or twice again to 49280 pixels (high 
reso ution). The Perkins mod described on page 63 can provide any of these 
resolutions. Well, with four times as many pixels on the same screen, 
each one has to be one-fourth the size of the original, so detail of 
objects, characters, etc., is great!y enhanced. 

it mak« h PiXSl 13 tU [ ned ' on ' or by the TU's electron gun each time 

it makes a sweep of the screen, so you have to have enough memory on board 
to remember the status of each pixel. The screen is therefore "refreshed" 
at every sweepA 

. . com PUter stores such common things as characters, letters, etc., 

without h! SU l ? 0tr ^ lnas and 'calls" each one as requested by the program! 
tutorial hT t0 . 9 ® nerate the character every time. The program in Rich's 
character ^ior “ 3im P ,ified -y for you to generate your own 

n ° 9 ™ e ’ Qtc "’> a "<* control its location by setting up a 

subroutine that your big program would call as needed. To do this he sets 

up a 16 pixel by 10 pixel workspace, and determines which of he pixels in 

the oroor 06 hV?h bS *° n ’ t0 9enerate the character. This is done outside 

P M?S BY^ES, a^dTlXE^ ^ ^ ^ P™ 9 ™" P“ce. 

of its Th comoutat!on ht '"T' *2 ° ‘ byte ‘- ThG COm P uter bytes in most 

256. This value is e «lr!u t !! C [..° na h< ” ° number assigned to it, from 0 to 


rj 

Lit 


fTi 


S V J z / 4 1 

LD 

1 1 1 1 1 1 


ttt 4V 3JL /i 6 4- Z / 


■ but pes/to* 


bit HA !ut 


Each bit can be either a “1" or a "0". For each "1“ that is shown, one 
adds together al I the correspond ing "hit values". This sum is the "byte 
value". Every number from 0 to 256 can be developed this way, and there is 
only one combination to do it. As as example, for a byte value of 84, bits 
number 6, 4, and 2 must be set equal to "1", for their bit values are 64, 

16, and 4 respectively, their sum is 84. Mathematicians will see that the 
bit values represent the powers^ of_ two raised to the bit position. 

Now to pixels. Each bit is equivalent to a pijxel insofar as the 
screen picture is concerned. At every "1", the screen will be "on", so we 
can. easily generate a picture by selecting the bits that we want to be 
on , determining the byte value, and telling the computer that information 
- as Rich does in the following: 


82 


<RRCROIRN 



TUTORIAL Creating Special Graphics, by Rich Tietjens 


Most of us uuho program in Bally BASIC have often wished for a faster 
means of creating complex characters on the screen. The most obvious 
method uses a machine-1anguage subroutine, but many hackers have no desire 
to "get involved* in the complexities of this mysterious and arcane art. 
However, if you are willing to do some doodling on paper and a little basic 
arithmetic, you can create your own special characters without headaches. 

First, you must write (or modify) your program to employ the 
subroutine. This requires at least two variables to position the 

character; I chose H (for Horizontal and U (for Vertical ). 

Now, wherever you want to draw your character, you must set the H and 
<J values; the position 0,0 is in the upper left corner of your screen. 
Position H,U will define the upper left corner of a character block 1G 
pixels wide by 10 pixels high. H may range from 0 to 159; V from 0 to 98 
(which is off the bottom of the screen). Then POKE 20203,Ux256+H (( that 

is, program the statement to read - - X(20203)=Vx25S+H )) 

Now, CALL 20200 UoiI a! There is your character! But wait, we can't RUN 
your program without the s 
ahead with the rest of th 

The following r'outii 
special character. 


When your main BASIC program is modified to your satisfact ion, save it 
to tape; verify a good recording and set it aside. 

Now let's define your characters; each is drawn on a 16x10 matrix, 

thus Iy: 


subroutine in place; so make your changes; then go 
is story. 


ne will draw* move, and Iimit to the screen area a 


A 


4 

Ai 

£ 

L£J 

4 

j&j 

2 

n 

A 

lza 





L 





z 



i 





X 

X 

X 




2 



X 

X 

X 

A 

A 



3 


X 


X 


X 


X 



4 



7^ 

X 

A* 

X 

; r 



S_ 


I - 


ix 

X X 

_j 




6_ 



X 

XX X 

p? 




1_ 


X 

XXX 


X 



e> 

9 


X 


■ j 

n 

x A 



X 

XX 



□ 

XXX! 



“1 



pr 

TTfTjT 

rn 

it 

r*i 

I 4 ! z 


Note that this positions the 
figure to the left of the avail- 
able 16 pixel block. As a 
drill, see if you can determine 
the entries that will place the 
figure at the right side within 
the bIock. 


RICH TIETJENS 

501 S. ARCHER #5 

SAN ANGELO, TEXAS 76903 


10 . POSITION AND DRAW 

20 5S(20203) * 256 b V + H; CALL 20200 

30 .* GET NEW POSITION 

40 X = H + JX(1); Y = U - JY( 1 ) 

50 . WRAPAROUND 
60 IF X > 159 X = 0 
70 IF X < 0 X = 159 
80 IF Y > 99 Y = 0 
90 IF Y < 0 Y = 99 
100 . ERASE 
110 CALL 20200 

120 . CHANGE POSITION AND GO DO IT AGAIN 
130 V = Y; H = X; GOTO 20 
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In this example, representing an flpoI I a Lunar Module, the X's show the 
pixels which will be turned on when the subroutine is called. Since no 
pixels are turned on in row 0, both bytes equal zero. In row 1, bits 3, 2 
and 1 of the left byte are turned on, equalling 8 plus 4 plus 2, or 14;’the 
right byte is still zero. 

When you have all the values figured out, load PROGRAM A; RUN it and 
enter the values computed in the byte value table. If you have two 
characters, enter any number except zero when asked ’two figures?'; enter 0 
if you only have one graphic character. 

Now, the program will ask 'READY?'. Press any key (except HALT) to 
have your character displayed (both will display if you have two.) 

If it (they) is/are ok, put the main program tape back in the 
recorder, with the tape positioned just past the trailing end of the 
BASIC listing. Start the recorder and press 'GO'. PROGRAM A will assemble 
your subroutine and put it on tape. When it is done, you can RESET the 
memory, load the tape just created, and there is your pet graphic 
character! If you wish to switch to the second graphic character, just 
POKE 20213.129 (that is, X(20213)=129 ). POKE 20213, 128 to switch back. 

T 1 USl " 9 U ° Ur °“ n 9r0ph ‘ C * 

-or. n=r to pfiy" TSSTn' »<■- o lot 

Chongod, olong .?th th. CALL oddroo.?, '"** “ ith ‘ n PR0GRn " >>• 

ROM subroutines' tha " kS T °" "” d f ° r th * * ffor ' t •*?•»*- on tho 0„-Boord 
_001 . GRAPHIC CHARACTER MAKER 
1002 . BY RICH TIETJENS 
1010 GOTO 1030 

1020 %(Y) - U; Y = Y + W; RETURN 

1030 CLEAR ;, NT = 1;X = 0; Y = 20200; R = Y; W - 2; Z - 1022 
PROGRAM A 1040 F0R U = X TO X + 19 STEP 2 

1050 CY - 32; PRINT *2, 'ROW*, U c 2, ': 

1060 INPUT 'LEFT BYTE?' SCLT) 

1070 INPUT 'RIGHT BYTE?' @(U +1) 

1080 NEXT U 


cJon'^ 

b mea n* * 


1090 IF U < 21 INPUT ‘2 FIGURES'?* T; IF T 
1100 U - -43; GOSUB Z; 0 = 6965; GOSUB Z 
1110 U = 10240; GOSUB Z; U = 20210; GOSUB Z 
1120 U * -13871; GOSUB Zj U = -1936; GOSUB Z 

1130 U = -32690; GOSUB Z; U - 12288; GOSUB Z 

1140 U - 2432; GOSUB Z; U » 527; GOSUB Z 

1150 U = -247; GOSUB Z; U = 78; GOSUB Z 

1160 14-1; Y - Y - W; FOR S = 0 TO U 
1170 U =» @(S); GOSUB Z; NEXT S 
1180 PRINT 'READY*; K = KP; CLEAR 
1190 X(20203) = 0; CALL R 

1200 IF X > 21 X( 20203) = 75; %(. 20213) = 129; CALL R 
1210 CY = 0; PRINT *0K?*; IF KP * 13 GOTO 1210 
1220 :PRINT ; NT = 2; PRINT ; PRINT 'CLEAR 
1230 FOR X = R TO Y STEP 2 
1240 PRINT *5, 'JSC, X, ')=', *6, *(X) 

1250 NEXT X; PRINT ':RETURN; RUN 
1260 :RETURN; .END 


20; GOTO 1040 


CY 


32 


64 
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One 

RstroOision 
«oItage. Dan 


thS ; od ' flca tions that haws been incorporated into the 
Koooe m0t ^ erb0ard is the reduction in the power supply 
Koppen is doing roughly the same thing to his Bally board 


Krazy Koppen's Heat Sink 

space invader out of the sky? Wel^Krazv^nnn 6 s *! 00 J 1n ? ^ our last 
cure for you!! 6 Krazy Koppen just might have the 

iiSliliil. 

supplied to it h P d on much less then the 10 volts 

an/ioto^:! s y pin i3 - 



0o„'J e o^rhea t r “j„ n9 if„^ n “ a f&J?'' Hi n ’.«: th °" e <* caution, 

data chip and have to replace it. 9 the resistor - You may damage the 

on indeffnately^Hope^ou^ave'the IweTesZsl™ lMVe * y maChl '" e 


Dan Koppen 
( 804 )- 484-1907 
Suffolk, Va. 
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4 -.RETURN 

5 .NIM 

S .R HILFERDING 
10 CLERR ;GOSUB 9000 
20 NT=0;M=15;K=0;J=0;F=0;CLEAR 

30 &(9)=300;FC=0;BC=117;CY=0;CX=-49;INPUT *1 OR Z PLftYERS?*X 
40 IF (X<1 )+( X >2 )GOTO 30 
50 IF X-2G0T0 150 

50 CLERR ;CY=0;INPUT ‘DEGREE OF DIFFICULTY:1-37*Y 
70 IF YC1PRINT ‘THAT'S CHEATING!*;GOSUB 7000;GOTO 60 
80 IF Y>3PRINT ‘ITS HARD ENOUGH AT 3!‘;GOSUB 7000;GOTO 50 
90 IF Y=1R=1 
100 IF Y=2R=RND (2) 

110 IF Y=3R=2 
120 CLEAR ;CY=0 

150 CLEAR ;&(9)=300;BC=7;FC=S6;PRINT * WHO WANTS TO GO FIRST? 
150 PRINT *1-PLAYER 1 

170 IF X=2INPUT ‘2-PLAYER 2*Z;G0T0 190 
180 INPUT ‘3-COMPUTER‘Z 

190 IF (Z<1)+(Z>3)PRINT ‘IS THIS TO TOUGH?*;GOSUB 7000;GOTO 150 
200 IF Z=2IF X-1GOTO 150 
210 IF Z=3IF X=2G0T0 150 
215 H=Z;IF Z=3H=1 

220 CLEAR ;FC=0;BC-134;GOSUB 5000 
230 IF Z=3G0T0 4000 
1000 CY-0;PRINT ‘ PLAYER #‘,*i,H 
1010 P=KN(H)c127+2 

1020 CY=-10;PRINT ‘HOW MANY BOXES?*,P 
1030 IF TR(H)-0GOTO 1010 
1033 IF P >MGOTO 1020 
1040 M=M-P 

1050 IF X=1IF M-0GOTO 8000 
1060 IF M< =0GOTO 8500 

1070 GOSUB 5000;IF X=2IF H-1H-2;GOSUB 5500;GOTO 1000 

1080 IF H=2H=1;GOSUB 5500;GOTO 1000 

1090 IF X=1G0SUB 5500;GOTO 4600 

4000 CY=0;CX=-50;PRINT ‘MY TURN 

4010 P=1;M=M-P;R=R-1 

4020 GOSUB 5000;GOSUB 5500 

4030 GOTO 1000 

4500 IF P< =RGOTO 4700 

4610 R=R+4 

4700 IF M=lGOTO 8300 

4701 R=R-P 

4710 IF RGOTO 4800 
4720 R=4;GOTO 4000 

4800 P=R;R=4;M=M-P;CY=0;CX=-50;PRINT "MY TURN 
4810 GOSUB 5000;GOSUB 5500;GOTO 1000 

5000 FOR T=-75T0 65STEP 10;BOX T,35,5,5,3;NEXT T;T=70;RETURN 

5500 BOX 0,0,160,34,2;RETURN 

6000 FOR A=1T0 P 

5005 BOX T-5,35,5,5,3 ~ 

5010 FOR B=35TO -44STEP -8;B0X T,B,5,5,3;BOX T,B,5,5,3;NEXT B 
6020 T=T-10;IF T=-75G0T0 8300 

5030 NEXT R;CY=22;CX=35;PRINT *1,M,* LEFT";RETURN 
7000 FOR Q=1T0 500;NEXT Q;RETURN 
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BERT YOU!*;GOSUB 7000 
YOU BERT ME! ";GOSUB 7000 
PLAYER #",#1,H, 


LOSES!";GOSUB 7000 


SCORE: 


8000 CLERR ;NT=3;CY=0;PRINT * 

8010 F=F+1;GOTO 8800 
8300 CLERR ;NT=3;CY=0;PRINT 
8310 K=K+1;GOTO 8600 
8500 CLEAR ;NT=3;CY=0;PRINT 
8510 IF H=lJ=J+l 

8520 IF H=2K~K+1 

8800 CLERR ;FC=134;BC=96;PRINT ;PRINT 
8610 M=15;PRINT ;PRINT "PLAYER *1", 

8620 IF X=1PRINT " COMPUTER 

8630 IF X=2PRINT * PLAYER * 2 

8635 PRINT 

8640 PRINT K,;IF X=1CX=10;PRINT F;GOTO 8660 
8650 IF X=2CX=10;PRINT J 

8660 PRINT ;PRINT "SQUEEZE TRIGGER TO REPLAY 
8665 CX=0;PRINT "OR 

8670 PRINT "PRESS ' 0' FOR R NEW GAME 
8680 IF &(22)-16G0T0 20 
8690 IF TR(1)=0GOTO 8680 
8695 IF TRC1 ) IF X=1NT=0;GOTO 60 
8700 CLERR ;NT=0;GOTO 150 

® ^=134; BC=0; &( 10 )=140; @C1 )=32; @C 2 )=78; 3 )-73; @( 4 )=77; @C 5 )=33 

9010 CY*-30; FOR A=1T0 5; TU=»@( fl ) ; NEXT R 
9020 NT=0;FOR C=-30TO 40;FOR D=-33T0 -27 
9030 IF PXC C,D )BOX CC+81 )b4-79,CD+30)b4,4,4 1 
9040 NEXT D;NEXT C 

9050 BOX -59,-30,42,3,2;&C10)=174;RETURN 


Robert Hilferding 
P. 0. Box 1647 
Brandon, FL 33511 


NIM is a one or two player game where the object is to force your 
opponent into taking the last piece. Starting with fifteen boxes, the 
players alternate in removing one, two, or three boxes. (KN determines the 
number, TR removes the boxes.) In the one pIayer mode, the computer 
determines how many boxes it will remove. 

The program permits options in who starts, and the degree of 
difficulty option in the one-player mode. Beginning options are entered 
through the keypad while play options are executed through the hand 
controI Iers. 


Y Colon 0/igan/Li.gAt Show:: 

J ynszeA.fa.ee Bally to uoun Stereo 
I TV dteplau* Colon <T Llyht l 
I 4 tep with tKe mLLSijc. 

* Complete intenlace unit with. u 

Tutonlal. ?5 (Add youn own qAaphlas/A/it.) 

20 Cfam&A cute now available All Uoe Full 
| t ^emoxu <£ Display Late of Qnaphlco, Action, \ 
sound ft Colon. .Any Two on Q^tette.. .S 10.00 } 
- Wnite Fon Fnee Tic.tune Catalog. 

Vtea <£ /fasten Chanye Accepted 
L <£ F\ Soltwane 
$599 Fnamewood On. 

Newoungh. ON. 

We Fay Footage! 
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BRLCHECK is the name of a program that is used to check out the 
-of the motherboard at various times during the manufacture, of 
Arcade. In the original advertising Iiterature, a Uideocade i 
se I f-check ing ability uias to have been made available, but it i 
done as far as I have been able to determine. But by George, one 
be upon the very near horiz on. The program (available at SG.50) 


operat ion 
the Bally 
with this 
was never 
Iooks to 
has been 


successfully entered into a PROM, arid the plan is to make up a BRLCHECK 
device for sale at a reasonable cost. The unit will connect to the 50-pin 
connector at the rear, and it is also very possible to package it into a 
cartridge-sized box so that it will slip into the game slot. This device 
will then analyze your machine, looking at a number of various items, such 


keypad operation, chip functions, color display (it puts up a beautiful 
ibow effect with every one of the 256 colors on the screen), and has the 


capability to accept machine code. If it finds some discrepancy, it uses a 
pair of alpha-numeric LEDs to indicate, through a code, where the problem 
is located. I expect Dick Belton, 4906 Willshire five., Baltimore, MD 21206 


to have an ad in the next issue. 


UU-1 COMPUTER is the commercial version of what we will essentially have 
when the Add-Under is coupled to the Arcade, except for high-resolution 
graphics. These units are in use by professionaIs in the graphic arts, and 
the current issue of Creative Computing (June) contains an article written 
by Frank Dietrich and Zsuzsa Molnar describing and illustrating in color 
someof the graphics that they have obtained with ZGrass using the UU-1 
computer. In scanning the article, I believe that those effects could be 

generated with the Extended Basic without too much difficulty. 


A grubby piece of paper was shoved under the door, and on it was a 
note and a sketch - the note said, in greatest Through the Looking Glass 
tradition, "TRY ME". The sketch is reproduced here, showing the five 
resistors that exist just underneath the TU output connector inside the RF 
modulator. The two outer resistors and the center one are suggested to be 
cut out entirely, while the remaining two are suggested to be shorted with 
bits of wire to take them out of the circuit. Supposedly, the output is 
enhanced. It has helped my set. 



DEFUSE Modifications. Dieter Heinerman sent in the following as a 
result of some comments and suggestions from Bob Dahl: 

270 A=RND(100 )-l; B=RND(100)-1 
280 C=RND(100 )-l; IF A>0 GOTO 310 

320 PRINT * SIGNAL “,10000-ABS((A+B+Cbl00)-(D+E+Fbl00 ) ) 
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The OIPER SYSTEM 1 is the first of a series of custom manufactured, 
quality products made for the Bally Home Computer/ProfessionaI Arcade. 
With this system, you can begin the evolution of your Bally from the 
Professional Arcade to a powerful graphic computer. The UIPER SYSTEM 1 is 
a Iot more than just a 1SK memory expansion. Features and capabilities are 
listed as follows: one dual position front panel select switch for 
starting the memory at either 8 or 24K. This will make it convenient for 
the user to copy any game cartridges and run them in extended RAM where 
they can be modified or copied to tape. Next, one dual position front 
panel switch for Auto-Write-Protect or Programmable Write-Protect. The 
Automatic Write-Protect mode allows the user to load Jay Fenton's excellent 
new 8K Extended Basic from tape, and then use the Basic to write programs 
in the remaining 8K. The ProgrammabIe-Write-Protect allows you to 
Write-Protect or Write-Enable the entire 1BK RAM board with simple Basic 
statements. Next, the RAM board located inside the cabinet has two eight 
position DIP switch packs. Switch pack one enables 4, 8, or 1GK bank 


nmi ooara located inside the cabinet has two eight 
position DIP switch packs. Switch pack one enables 4, 8, or 1SK bank 
selectable addressing, and switch pack two controls special bus functions 
to the Bally and selects either external or internal clocking. SYSTEM 1 
also includes a fuse-protected +✓- 5 volt and +/- 12 volt power supply. 
These voltages provide power to the RAM and keyboard interface circuitry. 
Also included is a heavy duty grounded AC line cord, and filtered AC outlet 
on the back that is controlled by the front panel switch. The SYSTEM 1 
Interface Board provides the bus conversion from the Bally to the UIPER 
bus, plus a serial keyboard interface which will allow the use of a UIPER 
or other serialized ASCII keyboard with the system. It also includes one 
bus cable connecting the UIPER to the Bally. The RAM board and keyboard 
c Unpl ^>9 ed from the SYS ™ 1 ^d later plugged directly into the 
bTbltn 5 without any changes because the equipment is completely (software 
::L* ar ? U ' ara) Com P atib,e - F °r "those of you who are home-brewers, when the 
SYSTEM 1 is upgraded to a SYSTEM 5, the SYSTEM 1 cabinet, power supply, 
an us interface card can be used to help prototype your own computer 
circuits. The entire system is housed in an attractive heavy duty black 
aluminum cabinet with simulated wood grain side panels and custom 
»iI k-screening. The dimensions are 10‘xl0"x4-l/4* 


or other serialize 
bus cable connecti 


SYSTEM 5 
and hardi 
SYSTEM 1 


are) compatibis 


Due to the response rei 
of the ARCADIAN, there hai 
the System RAM card and 
advertisement and follot 
information, pricing, and 
*225. A free Extended Basic, 
SYSTEM 1. 


eived when originally advertised in past issues 
e been several changes and improvements made to 
Interface Card. Therefore, please refer to this 
ling advertisements for accurate product 
availabil ity. SYSTEM 1 is available now for 
on tape and with documentation comes with each 


Alternative Engineering, Inc. P.O.Box 128 

83 


Gardiner, ME 04345 



ADS 


SUPER SOFTWARE announces their "Super Software Spectacular Summer Sale". 
Now all programs and listings are #10.00 off!! Send for your free catalog 
and free Bonus Coupon. 'Super Software P.O.Box 702 Plainfield, NJ 070G1 

Now Available... #5.00... SUMMER 1SS1 BALLY Professional ARCADE Software 
and Hardware SOURCEBOOK 

Over 300 Iistings covering all known software and hardware sources. 
Ccompiete index of programs that have been printed in the ARCADIAN and 
CURSOR Newsletters. Dick Houser 635 Los Alamos Ave Livermore CA 34550 

FOR SALE: Bally arcade with SPACE INUADERS, BALLY PIN, BASEBALL, FOOTBALL, 
BLACK JACK, STAR BATTLE, MATH, LETTER MATCH, PANZER ATTACK, SEAWOLF, 
CLOWNS, 280 ZZAP, BASIC cartridges and cassete interface. #400 or best 
offer. Jack Lampcov, 27746 Pierce, Southfield, MI 48076 313-589-6818 

FOR SALE Bally with virtually everything. 14 Bally Uideocades, 6 Wavemaker 
tapes, 1 year of Cursor tapes, most I iterature - over #800 worth for #500: 
R.L.Thersen 68 St. Thomas Ct Pleasant Hill CA 94523 

COMMUNITY COMPUTERIST*s DIRECTORY is similar to a telephone book for 
locating people or companies having similar interests. The white pages 
list people with a paragraph of what they are working on, working with, or 
want to see available. The yellow pages are advertising areas for people, 
businesses and organizations. July issue will be #3.50, from P. 0. Box 40 
ForestviI Ie, CA 85436 

HAND CONTROLLER REPAIRS With factory prices now at #45/pair, it pays to 
have problems fixed - contact Dave Stocker, 333 Coronado Dr., Mt. Uernon, 

IN 47620 
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Z-GRflSS-32 Add Under. Latest word, jus 
nt to press'via The SOURCE, is that th 
oice interface! More details on this a 
nt, the specifications for the Add-Unde 
cerned parties, and the unit is GO for 
we a built-in disc interface capabil ity 


■34K. I he 16K RAM uii l I 
plus a couple of board 
RAM to S4K, so that the 


® STRTUS o-f other efforts r The -fol I owing cartridg 
GALACTIC INVASION, BIORYTHMS, and PIRATES CHASE 
to go are: SPACE FORTRESS, CHECKERS, and MUSIC 
have a GK program to self-store uour musical 


us is me new nsirovision basic cartridge, and the 
manual for the cartridge is now being proof-read. Scheduled availability 
date of the Basic is late August. 

O PERSONNEL CHANGES Michael Peck is nou» the President of AstroUision, 
replacing Dan Dawson in the third week of June. I spoke with Mr. Peck, and 
he is very interested in getting the AstroVision steam ro I I er underlay 
John Perkins is working for AstroUision as a consultant, primarily 
interested in getting the Add-Under into production, while Brett Bilbray is 
also working for them, with responsibilities in the oroduction Armrio 


BALLYCHECK is the name given by Dick Belt 
orogram the factory uses to check the moth 


2x2x4, with two LEDs -for readout, an 
One goes to the 50-pin connector, 
iight-pen connector. Once plugged 
checkout, and if a failure is found. 


the BaI check 
taI I at ion in 


lncIuded are I 
L & M Software 
to the wise... 
• SPINNING WHEEL 


t that they expect their pr 
combination program that To 


t takes the place o 
th an RNDC30) plus 
r is deciding which of the 30 numb 
three designs and dummy advertisin 


-yuu. uuin usage. use bU to re 

t for “Place Your Bets* before making any entr 


(c) 1981 Robert Fabris 


























1 . 

' 2 .SPINNING WHEEL 

3 . 

10 BC=200;FC=215 
15 GOSUB 250 
17 &(105=178 
20 NT=1 
30 CLEAR 
40 2=0 
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50 CX=-20;CY=25;PRINT "SPINNING" 

55 BOX 29,0,20,10,3 
60 FOR A=RND (30) 

70 CX=-10;CY=0 ^ 

80 PRINT fl 

90 B=RND C 30 )b2;BOX -50,-20,B,B,3 
100 Z=Z+1 

110 IF Z< 50GOTO S0 

120 CLEAR 

130 CX=-10;CY=35 

140 PRINT "STOP- 

145 FOR Z=1T0 250;NEXT Z 

150 CY=20;PRINT " WINNING NUMBER IS" 

152 FOR Z=1T0 250;NEXT Z 

155 CX=-15;CY=0 

156 PRINT "a ",#1,A,’ _* 

160 FOR M=1T0 2000;NEXT M 

170 CY=-25;PRINT " PLACE YOUR BETS!" 

180 PRINT * MAX. 4 NO. PER PERSON" 

190 M=KP 

191 IF M=13G0T0 15 

192 IF M=49G0T0 350 

193 IF M=50GOTO 500 

194 IF M=51G0T0 800 

195 GOTO 190 
250 CLEAR ;Z=0 
255 NT=0 

260 &(10 )=142 
270 Z=Z+1 

280 IF Z=27G0T0 300 

290 CY=-23;PRINT * GOOD LUCK ! 

300 FOR Z=1T0 1500;NEXT Z;CLEAR ;RETURN 

350 BC=111;&(9)=255;CLEAR ;LINE -80,10,0 

351 FC=0;&(10)=176;NT=3 

360 FOR A=-80TO 80;LINE A,RND CABSCA 5+15-10,1' 
370 NEXT A;LINE 0,-10,0;A=10 


Tom Owczarek 
2120 Garrick 
Warren, MI 48091 


;GOTO 270 


380 FOR C=1T0 20STEP 2;A=A+C;B=Ac6;BOX A-3,-B,1+Bc2,Bbl0,1 

390 BOX A-3,Bb3,Bb5,1+Bc2,1;NEXT C;FOR A=-30TO 30 

400 LINE A,-44,1;LINE 0,-10,0;NEXT A;FOR A=-44T0 -11STEP 8 

410 BOX 0,A, ABS(A5cl0, ABSCA5c6,2 

411 NT=10;CY=-15;PRINT " P.A.S.S. 

412 CY=-25;PRINT " BOOTH 

413 NEXT A;FOR Z=1T0 5000;NEXT Z 
419 NT=1 


420 &(9 )=50;BC=200;FC=215;GOTO 170 

500 CLEAR ;&(21)=0;&(10)=176;NT=3;BOX 0,-40,158,8,1 
505 BC=240;FC=7 

510 FOR A=1T0 50;BOX RND (1605-80,RND C885-44,1,1,1;NEXT A 
520 BOX 0,-20,30,10,1;BOX 0,0,20,30,1 
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530 LINE 0,0,0;LINE -40,-40,1;LINE 40,-40,1;LINE 0,0,1 

540 LINE 0,-20,0;LINE -40,-40,1;LINE 40,-40,1;LINE 0,-20,1;CY=44 

550 PRINT " WE'RE OUT OF THIS WORLD 

550 FOR Z=1T0 750;NEXT Z;BOX 0,-10,5,10,2 

570 FOR Z=1T0 1500;NEXT Z;BOX 45,-20,2,38,l;BOX 58,-9,20,14,1 
580 BOX 53,-6,8,6,2;BOX 58,-15,18,1,2;B0X 58,-13,18,1,2;BOX 58,-11,18,1,2 
590 BOX 52,-9,9,1,2;B0X 62,-7,9,1,2;BOX 62,-5,9,1,2;NT=1;FOR Z=1T0 5000;NEXT Z; 
GOTO 170 
600 CLERR ;NT=0 
605 BC=122;FC=7 
610 FOR R=35T0 37;CLEAR 
620 FOR B=1T0 285;TU=A;NEXT B 

625 FOR C=-80TO 75STEP 4;BOX C,0,1,88,3;NEXT C 
628 FOR C=43T0 -43STEP -2;BOX -2,C,156,1,3;NEXT C 
630 FOR X=1T0 1500;NEXT X 
,632 IF A=35G0TQ 650 
633 IF A=36G0T0 700 
635 NEXT A 
640 BC=200;FC=215 

645 NT=1;FOR Z=1T0 5000;NEXT Z;CLEAR ;GOTO 170 

650 CLEAR 

651 NT=7 

653 PRINT ;PRINT ;PRINT * PARENT ASSOCIATION“;PRINT ;PRINT * OF*; 

PRINT 

655 PRINT * SCHOFIELD SCHOOL* 

660 PRINT ;PRINT ;PRINT ;PRINT * WELCOMES YOU TO THE FAIR! 

664 NT=0 

665 FOR Z=1T0 3500;NEXT Z 
670 GOTO 635 

700 . 

701 NT=4 

705 PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT 
;PRINT 

715 CY=0;PRINT * HAUE A NICE DAY 

720 GOTO 664 


2 . DIAMONDS 

3 . BY ROBERT ROSENHOUSE 

4 . SUPER SOFTWARE 

5 . 

10 CLEAR ;B=24;C=25;D=30 

20 FOR T=1T0 DSTEP 2;X=RND (68);Y=RND (27);@(T)=X;@(T+l)=Y 

30 FOR A=1T0 BSTEP 2;BOX X,Y,A,C-A,3;NEXT A 

40 FOR A=1T0 BSTEP 2;BOX -X,Y,A,C-A,3;NEXT A 

50 FOR A=1T0 BSTEP 2;BOX -X,-Y,A,C-A,3;NEXT A 

60 FOR A=1T0 BSTEP 2;B0X X,-Y,A,C-A,3;NEXT A 

70 IF RND (7>=1BC=RND (256);FC=BC+4+8bRND (32) 

80 NEXT T 

90 FOR T=1T0 DSTEP 2;FOR A=1T0 BSTEP 2 

100 BOX @( T), @(T+l),A,C-A,3;BOX -@(T),@(T+l),A,C-A,3;BOX -@CT),-@CT+l),A C-A 3; 
BOX @(T),-@(T+l),A,C-A,3 
110 NEXT A;NEXT T;RUN 

^3 --J 


9 HI RES Modification as created by Perkins Engineering 
the system is available to experimenter-types whi 
programming. Due to other committments at the pr> 
available to develop software. So if you want to worl 


“ ubvhio h souwors. bo it you want to work on it yourself, and 

a real originator, you can buy the kit at S250, or the built up/tested 
t at $350 (using your board). 


► KLUDGE Board writter 
it should be 2N4401. 
a clock kit - see his c 


i up on page 72 ha 
Barry El Ierson i 
d or) p. 100. 


error in the transistor call 
has some p.c. boards for sale 


POOL 


BOB HENS EL 



Pool is a computer version of the Billiards 
game 8-Ball. The computer will rack the 
balls and break. The direction of the- Cue 
ball is controled.. by JX(1) & JY(1). The 
length of the shot is controled by th6 cue 
stick at the right of the screen. After 
selecting the desired angle & length, pull 
the trigger TR(1) to make the shot. The 
direction of any other balls hit by the Cue 
ball is controled by KN(1). If KN(1) is at 
its center the other balls will continue in 
the same direction as the Cue ball. Turning 
KN(1) all the way clockwise or counter¬ 
clockwise will deflect the balls 45 degrees 
from the path of the Cue ball. * 













ni^tnumn 


10 .POOL * <— 

20 .BY BOB HENSEL 

- 30 : RETURN ;&(9)=39;&( 0 )=170; & (1)=170;&(2)=30;&( 3)=30;CLERR ;BC=170;FC=7 
40 S-l;T-0;NT-0;BOX -3,-2,155,83,1;BOX -3,-2,152,79,2 

50 X=75;F0R Y=-42T0 38STEP 2;BOX X,Y,1,1,1;NEXT Y;X=76;F0R Y=-42T0 389TEP 10;B 
OX X,Y,1,1,1;NEXT Y 

60 X=7E;FOR Y=-42T0 38STEP 10;BOX X,Y,1,1,1;BOX -70,32,20,12,1;BOX -70 -35 20 
12,1;BOX 0,-35,23,12,1 ’ ' 

70 BOX 64,-35,18,12,1;BOX 64,32,18,12,l;BOX 0,32,23,12,1 
80 CY=10;CX=19; PRINT ’POOL* ; CY—10; CX=-8; PRINT ‘BY BOB * HEN5EL* ; NT=5 
90 X=-30;Y=4;B=-8;D=1;FOR R=1T0 5;F0R C=1T0 D;Y=Y-6;B=B+9;IF B>10B=1 
100 GOSUB 400;NEXT C;D=D+1;Y=RBSCY)+6;X=X-6;NEXT R 
110 BOX -42,-2,1,3,3;B0X -42,-2,3,1,3 

120 B=0;Y=-2;FOR X=36T0 -24STEP -6;GOSUB 400;GOSUB 400;NEXT X 

140 FOR R=1T0 8;FC=90;FOR C=1T0 50;NEXT C;MU=60;FC=7;NEXT R;BOX 0,-2,144,42,2 
)=RND (19)+5;@(16)=RND C 4 )+5; @C 33 )=-71; @( 34 )=37; GOSUB 460; GOSUB 400; FOR 

160 @CB)=RND (19)+3;@(B+16)=RND C12 ) + l;GOSUB 460 
170 GOSUB 400;IF PXCX+2,Y+2)=0GOSUB 470 
180 NEXT B;GOTO 210 

190 @C0)=13;<§»(16)=7;GOSUB 400;GOSUB 460;GOSUB 400 
200 @(33)=@C33)-6 

210 S=S+1;C=-40;Q=2;BOX 79,0,2,88,2 

220 BOX 79,C+Q,2,2,1;IF TRCl)=lGOTO 270 

230 Q=Q+2;IF Q<80GOTO 220 

240 BOX 79,C+Q,2,2,2;IF TRC1)=1G0T0 270 

250 Q=Q-2;IF Q<0GOTO 230 

260 GOTO 240 

270 B=0;Q=Qc2;MU=60;IF JXC1)=0IF JYC1)=0GOTO 300 
275 GOTO 290 

280 W=KN< 1); IF RBSC W X65G0T0 300 
282 W=Wc65;IF U=0U=W;GOTO 300 
284 IF H=0H=W;GOTO 300 
286 H=0;GOTO 300 
290 H=JX(1);U=JY( 1) 

300 GOSUB 460;J=X+Hb6;K=Y+Ub6;IF (J<-75)+(J>70)H=-H;MU=60;GOTO 300 
304 IF C K<-40 )+(K>35)U=-U;MU=60;GOTO 300 
306 IF PX(J,K+2)=0GOTO 330 

310 C=B;FOR fl=0TO 15;IF <@(R)=@(B)+H)bf@(R+1G)=@(B+16)+U)B=R 
320 NEXT fl;IF B#C MU=60;GOTO 280 
330 BOX X,Y,5,5,2 

340 X=J;@(B)=@C B)+H;Y=K;@(B+16)=@(B+16)+U;GOSUB 400 

350 IF PX( X+2,Y+2)=0GOSUB 470;Q=0; IF B=0GOTO 190 \- 

380 Q=Q-1;IF Q>0GOTO 300 

390 GOTO 210 540 BOX 0,0,146,50,2;CX=-23;CY=8;PRINT "GRME OUER 

400 MU=50;IF B=0BOX X,Y,3,3,3 550 PRINT ;CX=-41;IF T#15PRINT "8 ERLL LOSER 

410 IF B>7B0X X,Y,1,3,3 560 IF TRC1)=1G0T0 30 

420 IF B=8BQX X,Y,3,1,3 -S70 GOTO 560 

430 BOX X,Y,5,5,3;RETURN i 

440 @( 33)=@C 33)+6;IF B>8@C33 )=@<33)-6;@C34)=@C34)+6 

450 RETURN 

460 X=@C B)b6-75;Y=@CB+16)b6-44;RETURN 

470 GOSU B 400;Y=41;X=®(33);B )=0;IF B>8X=@(34) 

480 MU=70;MU=71;MU=72;MU=73;MU=74;MU=50;MU=48;GOSUB 400;GOSUB 440;IF B#0T=T+1 
510 IF T=15G0T0 540 
520 IF B=8G0T0 540 

530 @CB)=30;RETURN _ — 
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.OLD BENT NOSE 
.BY BOB WISEMRN 
Q=1100;GOTO Q 
R=12;GOSUB H;GOSUB I 
GOSUB K;IF UGOTO 190 
B=A+W-5bU;IF R=BGOTO N 
IF (B< 0)+(B >24 >GOTO N 

GOSUB I;R=B;GOSUB H;GOSUB I;FOR X=1T0 9;MU=25;NEXT X 
GOSUB K;IF UbU+WbWGOTO 170 
GOTO N 

IF @(ft X 0GOTO N 
GOSUB I;RETURN 

GOSUB 600;GOSUB 100;L=fl;IF @<L)=0GOSUB 1000;GOTO D 
GOSUB 500;GOSUB 100;IF fl=LGOSUB 220 
IF @CA)=0GOSUB 1000;fl=L;GOSUB H;GOSUB J;GOTO D 
GOSUB H;GOSUB 500;FOR X=1T0 Q;NEXT X 
IF R)#@(L)GOSUB 700;GOTO D 

GOSUB 800;GOTO D 


W=Ac5;C=28-15bW;R=RMb15-26;RETURN 

BOX R,C,15,15,3;RETURN 

U=TR(P );U=JYC P);W=JXC P);RETURN 


$ 


BOX R,C,15,15,1;BOX R.C,13,13,2 
IF T=1B0X R.C,11,5,l;BOX R,C,5,11,1 
IF T=2B0X R.C,11,11,l;BOX R,C,7,7 r 2 
IF T@(A)=-T 
RETURN 

F=@(fl)c2;BOX R.C,11,11,1 

S=C+3;G=RM;IF GBOX R-3,S,1,3,2;BOX R-3,S,3,1,2;BOX R+3,S,1,3,2;BOX R+3,S,3, 


IF G=0BOX R-3,S,3,3,2;BOX R-3,S,1,1,1;BOX R+3,S,3,3,2;BOX R+3.S,1,1,1 

F=Fc2;Y=RM;IF YBOX R.C,1,1,2 

IF Y=0BOX R,C,3,1,2;BOX R,C+2,1,3,2 

F=Fc3;BOX R,C-3,7,3,2 

IF RM=0BOX R,C-2,5,3,1 

IF RM=1B0X R,C-4,5,3,1 

NT=30;MU=49+9bG;MU=49+9bY;MU=49+4bRM;NT=3;RETURN 

P=3-P;CX=M;PRINT ’PLAYER",#2,P, " S TURN’,;BC=232;IF P=2BC=56 

RETURN 

T=0;GOSUB J;A=L;GOSUB H;GOSUB J 

CX=M;PRINT ’IS NOT A MATCH ’,;RETURN 

T=P;GOSUB J;GOSUB 850;A=L;GOSUB H;GOSUB J;GOSUB 850 

CX=M; PRINT “MATCH!! MATCH M’ , 

FOR X=0TO 24;IF @(X ) >0RETURN 

NEXT X;CX=M; PRINT ’IT'S A DRAW. * , ; GOTO 910 
B=Ac5;C=RM;B=Bb5 
FOR X=0TO 2 

IF (@<B)=@(B+l))b(@CB+l)=@CB+2))G0T0 900 
IF (@(C)=@(C+5))b C @C C+5)=@(C+10))GOTO 900 
B=B+1;C=C+5;NEXT X;RETURN 
CX=M;E=l;PRINT ’YOU HAUE WON!!!’, 

FOR A=0TO 24;GOSUB H;IF @(A)=0GOSUB 1000 
IF @(A)>0GOSUB 500 
NEXT A;STOP 

BOX R.C,11,11,l;BOX R,C-3,9,1,2 

FOR X=0TO 3;BOX R-3+2bX,C-3,1,3,2;NEXT X 


96 


1310 BOX R+3,C+3,3,3,2;BOX R+3.C+3, 
1020 BOX R-l,C+2,1,1,2;BOX R,C+3,1, 
1025 IF ERETURN 


l,l,l;BOX R-3,C,3,1,2;BOX R-2,C+l,3,1,2 
3,2;BOX R-3,C+3,3,1,2;BOX R-3,C+3,1,3,2 


1030 CX=M; PRINT "PICK! BENT NOSE!’, 

1050 FOR X=1T0 30;MU=87;NEXT X;T=0;GOSUB J;CX=M;PRINT 
1080 R=RND (24); IF @(RX1G0T0 1080 
1080 @( A)=@(R ); @( R)=0;RETURN 


"HE HIDES AGAIN *, 


1100 T=0;P=2;M=-40;CY=40;CLEAR ;H=310;1=320;J=400;K=330;N=110 
1110 FC=118;E=0;FOR A=0TO 24;G0SUB H;GOSUB J 


1120 B=Ac13;@( A )=RM+1;NEXT A;@(12)=0 


1130 FOR A-0TO 24;B=RND (24);C=@(A);@(A)=@(B);@(B)=C;NEXT A 
1140 D=200;GOTO D 


*** OLD BENT NOSE *** 

ft**#***#* ^x-H-***#*#** 


THIS IS A TWO PLAYER-GAME PLAYED ON A FIVE BY FIVE GRID.’ THE 
OBJECT OF THE GAME IS TO GET THREE OF YOUR MARKERS IN A STRAIGHT 
LINE HORIZONTALLY OR VERTICALLY. PLAYER ONE USES PLUS SIGN MARKERS? 
PLAYER TWO USES ZEROES. ON THE GRID, TWELVE PAIRS OF FACES ARE HIDDEN, 
WHEN IT IS YOUR TURN, USE THE JX AND JY ON THE GAME CONTROLLER TO 
MANUEVER THE REVERSED BOX TO THE SQUARE THAT YOU WANT TO GUESS. PULL 
THE TRIGGER. NOW GUESS ANOTHER, TRYING TO FIND THE MATCHING FACE. 

IF THE TWO FACES THAT YOU HAVE EXPOSED MATCH, THEN YOUR MARKER IS 
PUT ON THOSE SQUARES. FIRST PLAYER TO GET THREE OF HIS/HER MARKERS 
IN A LINE (NOT DIAGONALLY) WINS. BUT WATCH OUT!! OLD BENT NOSE 
IS HIDING OUT THERE TOO. IF YOU PICK HIS SQUARE, YOUR TURN ENDS 
AND OLD BENT NOSE TRADES PLACES WITH ANOTHER HIDDEN FACE. THIS GAME 
COMBINES GUESSING, MEMORY, AND STRATEGY. 


MUSIC FOR GAMES 
10 FOR A=256 TO 0STEP -4 
20 &(23)=A;&(21)=A;&(19)=200 
30 IF A=4A=256;IF TR(1)A=0 
40 NEXT A:&(23)=0;&(21)=0 


EDGETAGS + + 


BY MIKE PEACE 


15 BALLY VIDEOCADE EDGETAGS 
\ WITH 4 HAND CONTROL TAGS 
\ ( ALL SCRATCH & MAR RESISTANT ) 


$3.50s 


PEALER AND CUSTOM PRICES AVAILABLE 

V _CALL (5031 238-5796 AFTER 5:30 

V_EASY TO DO-YOtWSELE . 


CHECK TO: 

ROGER SAUNDERS 
304 N.E. 55th 
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Bally* s special features including sound 
color, and exciting graphics. We also carry \* 
^ all of the game cartridges for the Bally at low 
discount prices. Please write for our free catalog, 

SUPER SOFTWARE 


PLAINFIELD, NJ 07061 


I ator 


Super Software- 


We carry all game cartridge 


Bally Computer System 



Super Soft 

w offers ni 

rograms for 
ally Comput 

ware 

ne sets 

use with 

er System! ^ 

Our pro 

grams are d 

esigned with 


that utili 

ze all of the 


ONBOARD CALCULATOR,($), has not been utilized fully. The--ARCADIAN tut< 
on its basic operation was published in UoI 1, p.32. At that time, 
digit of each number had to be individually entered, an arduous - 
Then, in <Jol 2, p.2, Gerry Halquist presented a loan payment program 

simplified input, but still having restrictions (s< 
id in 5 digit format). Now Jess Shadle has m< 
lere the input format can be almost anything < 
id utilize it. One program is included this 
notes: 

ncipal-you can use either $1000 or 1000.00 


UIPER systei 
UIPER, sti 























ARCADIAN 


3 .COMPOUND INTEREST 

4 .BY JESS SHRDLE 
10 CLERR 

20 FOR R=0TO 1S5; @( A)=0;NEXT A 

30 FOR XY=20078TO 20128STEP Z‘,%i XY )=0; NEXT XY 

31 F=100;G=200 

34 PRINT “COMPOUND INTEREST- 
38 S=2 

38 IF S=2P=6000;GOTO 75 


Jess Shad Ie 

7 CuI de Sac 

West Chicago, IL 80185 


70 CLERR ;PRINT -RUNNING';RETURN 

75 «K88)=2;@(98)=1;@(134)=1;PRINT “LORN AMOUNT";PRINT ;GOSUB 3030 
100 CX=-32;Z=1;FOR B=RTO SSTEP -1;IF @CB)=“0“IF ZGOTO 130 

109 IF O=0PRINT "$",;0=1 

110 Z=0 

120 TO=@CB) 

121 IF (B=ll)+(B=29)+< B=47)+(B=65)+(B=83) + (B=101)+(B=119)+(B=138)+(B=1S5)PRINT 


130 NEXT B 
140 0=0;RETURN 

200 PRINT “ . * , ;FOR B=TT0 USTEP -1;T0=@(B);NEXT B;PRINT ;0=0;RETURN 
500 IF E<2N=7 

510 IF E=2N=25 .6020 S-@(54),128),@C54 ) 

520 IF E=3N=61 Jb030 IF 62)+@(83)+@(84X145G0T0 6050 

530 FOR I=1T0 B "8040 GOTO 6010 

540 @(N+A)=@(165+J)®S050 PRINT -INTEREST+LOAN“;R=17;S=8;GOSUB F;T=7;U=6;GOSUB C 
550 fl=fl-1;J=J+1 16051 PRINT 

580 NEXT I 
561 @(46)=1 

570 IF E=2IF t @(26))+< @(27) )+C @C 28))>0$c@(18),@(36 ),@(18) 

580 A=0;B=0;C=0;J=0;PRINT ;RETURN 
3030 CX=-30;CY=CY-8 

3040 K=KP 

3041 IF K=31 GOTO 10 

3042 IF K=36T0=K;GOTO 3040 

3043 IF K=37T0=K;GOTO 3040 

3044 IF S>0IF K=13G0T0 3040 -- 

3045 IF K=44T0=K;GOTO 3040 
3050 IF K=46C=1;T0=46;GOTO 3040 

3060 IF K=73E=1;GOSUB 500;PRINT 'INPUT INTEREST RATE,THEN";PRINT ’ PRESS T";l 
RINT ;CX=-20;GOTO 3040 

3070 IF K=84E=2;GOSUB 500;PRINT ‘INPUT YEARS,THEN*;PRINT “PRESS P";CX=-20;GOTO : 
040 

3080 IF K=80E=3;GOSUB 500;GOSUB 60;GOTO P 

3090 IF K=67ST0P ?G060 0=1;PRINT “NUMBER OF PAYMENTS”;R=107;S=98;GOSUB F;T=97; 

3100 TO=K B U=96;GOSUB G 

3110 @(165+B)=K 16065 PRINT 

3120 B=B+1 I6070 ^RINT “MONTHLY PAYMENTS* 

3130 IF C=1IF E=0U=U+1;IF U=2K=73;G0T0 3060 

3140 IF C=0A=A+1 16080 »c@(0),@(90),@C90);GOSUB F;T=97;U=96;GOSUB G 

3150 GOTO 3040 |6090 PRINT “INTEREST PAID" 

6000 ®b@(54),@C90),@C90) |610^S-@(0 ),@C36 ),@(90);R=107;S=98;GOSUB F;T=97;U=96; 
6002 FOR Q=36T0 53; @( Q ) =0 < ?Vi?><T? ^^GOSUB G~ 

6005 ®+@( 0 ), @( 36 ) , @( 36 ) 

6010 Sb@(0),@< 18),@C 144) * 

6015 ®;@(0),@C 144),@<0) 



ADS 


FOR SALE Computer Ear with documentation and software. $55. Rory Wohl, 
3513 Lynnfield, Shaker Heights, OH 44122 
FOR SALE Basic, Interface, all issues of Arcadian Newsletters, Documents, 
10 cassettes, programs, manuals, and more. A must for the serious 
programmer. First $100 takes it. Robert Jaeger, 5B Millay Rd. Morganville, 
NJ 07751 201-53B-3274 

FOR SALE Baly Basic with Iitsratura and Basic, Interface, 8 working hand 
controls, FootbaI I ,BasebaI I ,Star BattIe,GaI actic Invasion Cnew) videocades. 
works great $300. contact James Schaefer 5314 Blackistone Rd. Bethesda, MD 
200IS 301-223-8318 

CLOCK MOD KIT $8.00. Assembled and tested, $11. ppd. Attention!! 
Experimenters, Servicemen!! Quality, double sided Kludge boards, $4.25 ppd. 
Quantity discounts! Please inquire Barry Ellerson 5017 N. River Rd., 
Schiller Park, IL S017B 312-635- 0858 

BALLYCHECK for problem diagnostics and out-of-case repairs: For Sale 
complete tested unit for $63. including shipping. Two to four week 
delivery. Kits may be possible. PROMs for BALLYCHECK now available, 
immediate delivery at $13.50 with listing if requested. Includes shipping. 
Arcade Boards repaired and/or tested - one to two week turnover $25 Min 
plus parts and shipping. Contact Dick Belton 301-488-280S between 4-10 pm 
Eastern time. 


CONTEST ENTRANTS this month were Bob Hensel , with POOL, and Bob Uiiseman 
with Old Bent Nose. The winner of the $100 check will be indicated by a 
big $ on the program page. The winner will be determined by the judging 
panel who will let me know at the last moment, after this issue is 
complete. Anyway, at this time I can congratulate Bob, who will replace 
Dick Strauss on the panel . ___ [_ 


-lOO - 


ARCADIAN 

Robert Fabris, vocalizer 
3626 Morrie Dr. 

San Jose, CA 95127 






- ,.^ „<a ?CRDIRN 

2 .BY RON PICARDI * 

5 GOTO 100 

10 LINE X+12,Y+Rb2,0;LINE X-10,Y-Rb2,3;LINE X+ll,Y-1+Rb2,0;LINE X-10,Y-1-Rb2,3 

11 LINE X+10,Y-2+Rb2,0;LINE X-8,Y-2-Rb2,3;LINE X,Y,0;LINE X-Rb2,Y+6,3 

12 LINE X+l,Y,0;LINE X+l-R,Y+3,3;RETURN 

20 BOX -30,-30,10,3,3;BOX -28,-28,2,3,3;RETURN 

30 FOR FI=1T0 2; FOR B=-20TO 20STEP 3; Q=FC; FC=BC; MU=" ! " ; FC=Q; LINE X,Y,0;LINE X+B 
, Y+20,3; NEXT B; NEXT FI; RETURN 

40 FOR A=1T0 10; &( 22 )=255;FOR B=60TO 10STEP -1; &< 18 )=B; NEXT B; &C 22 )=0; FOR B=1T 
0 30;NEXT B5NEXT A;RETURN 

50 X=0;Y=0; CLEAR ; BOX 0,-20,150,36,1;GOSUB 10; PRINT "SONAR CONTACT" ; GOSUB 20 
55 FOR A=1T0 10;&(18 )=30;FOR B=255T0 0STEP -10;&(22)=B;NEXT B;FOR B=1T0 30;NEX 
T B;NEXT A;RETURN 

100 CLEAR ;R=0;U=RND (10)b15-90;U=RND (10 )b5-25;S=RND (10)b15-90;T=RND (10 )b5-2 
5 

105 C=l;FOR A=-75T0 60STEP 15;FOR B=-20TO 25STEP 5;BOX A,B,1,1,1;NEXT B;NEXT A 
108 CY=-30;PRINT "USE JOYSTICK TO SEARCH 

110 X=U;Y=U;GOSUB 10;GOSUB 10010;CY=40;PRINT "MOUE #",#2,C;C=C+1 
120 U=U+JX(1)bl5;U=U+JY(1)b5;IF U-X+U-Y=0GOTO 120 

130 IF U>60U=60 

131 IF U<-75U=-75 

132 IF U>250=25 

133 IF U<-20O=-20 7 

140 IF U=SIF 0=TG0T0 200 
145 IF RND (100 )=1G0T0 500 
150 GOSUB 10;GOTO 110 

200 GOSUB 50;U=RND <5);0=RND C5);Z=RND C3 );S=3lW=3;H=0 

210 CLEAR ;PRINT "SUB WAS,";IF S>OPRINT "NORTH", 

211 IF S<UPRINT "SOUTH", 

212 IF S#OIF W#UPRINT * AND ", R on Picard! 

213 IF W>UPRINT "WEST 630 Bacon 

214 IF W<UPRINT “EAST Saginaw, MI 48603 

215 IF H>ZPRINT "TOO LOW 

216 IF H<ZPRINT "TOO HIGH 

217 IF H=ZPRINT "DEPTH OK 

220 CX=0;CY=24;NT=0;PRINT " 1234 5";CX=0;PRINT "1 * * * * *";CX=0;PRINT "2 

♦!****■ 

221 CX=0;PRINT *3 * * * * *";CX=0;PRINT ’A * * * * *“ ;CX=0;PRINT *5 * * * * * 
230 BOX -1+Wbl2,24-Sb8,7,7,3 

240 CY=0;PRINT "DEPTH",#2,H;NT=3 

250 PRINT "ENTER DATA";INPUT "N - ",S;INPUT "E - ",W;INPUT "DEPT",H 
260 CLEAR ;BOX 0,-20,150,36,1;Y=0;FOR X=0TO 36STEP 3;G0SUB 10;BOX 0,-X,1,1,3;FO 
R A=1T0 30;NEXT A;BOX 0,-X,I,1,3;GOSUB 10;NEXT X 
270 GOSUB 10;X=0;Y=-36;GOSUB 30;IF U=SIF U=WIF H=ZGOTO 400 
280 IF RND (5)=1G0T0 501 
290 CLEAR ;GOTO 210 

400 PRINT "BOOM";GOSUB 20;X=-30;Y=-30;GOSUB 30;GOSUB 20;G=G+1 

410 IF RND (10)=1PRINT "YOU STARTED WW3";GOSUB 40;PRINT "SELF DESTRUCT IS SET"; 
GOSUB 40;&(8)=3 
420 GOTO 1000 

500 GOSUB 50 

501 PRINT "TORPEDO ATTACK";GOSUB 30;GOSUB 10;Y=-2;GOSUB 10;PRINT "ABANDON SHIP” 
;GOSUB 40 
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RRCRDim 


513 GOSUB 10;FOR R=0TO 2;G0SUB 10;FOR R=1T0 30;NEXT fl;GOSUB 10;NEXT R 
520 FOR Y=-2T0 -30STEP -2;GOSUB 10;FOR R=1T0 30;NEXT R;GOSUB 10;NEXT Y 
530 1=1+1 

1000 CLERR ;PRINT "SUBS SUNK",#2,G,#2;PRINT "SHIPS LOST",#2,I;PRINT “FLRY RGRIN? 
1-YES 2-NO" 

1010 IF &(23)=8G0T0 100 
1020 IF &(22)=8GQT0 1040 
1030 GOTO 1010 

1040 PRINT "OK I HOPE THAT YOU ENJOYED YOURSELF";STOP 
10000 FOR R=1T0 2000;NEXT R;RETURN 
10010 FOR A=1T0 200;NEXT R;RETURN 


his revision of the Sub Search printed in an earlier issue of Are¬ 
as several new and better features♦ The search mode on the 10 
ea map is done with the Joystick. you can move your shir in si 
idht directions* A move counter is displayed as well as the s 
oration* The same will wait for you to us& the Joystick to move 
ontinne searching until you find the sub or it finds you* 

If the sub shoots you t your ship sinks by the stern. 

When you find the sub? a 5 by 5 sonar map is displayed a Ion si 
nformation on about where the sub is to the inverse marker* You 
nter target information. The screen is not cluttered with the var 
sed. Your depth charge is dropped and you hit or miss. 

Oh* by the ways? it is possible to cause world war 3* the pr 
ill self destruct? so be sure it is on tape* If you don't wa 
eload each time it happens* delete 8 )=3 from line 410* Your sco 
isplayed at the end of each dame* Have fun. programmed by Ron Pic 


By the way, Ron's 


an Rppie Interfa 


e is played : The black bo* 
omputer locates 5 balls (1. 
uares. The balls are Invls 


The player obtains Information about the location of the balls b 
probe Into the box at one of the 32 edge squares, and observing 
it may emerge at another edge square, be reflected back to the s 



1. PASS-THRU: A probe moves In a straight line unless It comes within 

one square (Including one diagonal square) of a hidden ball. 

2. ABSORBED: A probe which runs directly Into a ball Is absorbed. 

3. DEFLECTED: When a probe encounters a ball In Its left-front square 

(l.e., diagonally to the left In the direction of travel) It 
is deflected 90 degrees to the right. Similarly, when a pro 
encounters a ball in its right-front square, it Is deflected 


In the outer row) Is reflected to Its starting locatior 
. ABSORPTION DOMINATES: note that when a probe encounters 
an absorption and a reflection or deflectic 
situation side-by-side, the absorption 


A=straight pass-thru 
B,C,D=deflected right 
or left 

+(left)=reflected 
+(top & bottom)= 

deflected at entrance 
-(bottom & right)= 
absorbed 

-(top)=absorbed which 
dominates over re¬ 
flection in adjacent 
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ORCADIAN 


BRLLY BLACK BOX 


L Y=C(R-l)cS)b8-K;X=(RM+l)b8-12 u H 

l CX=X; GOSUB 25; CY=YcKb2+Y; RETURN - 

3 BOX U, W, C, C, 3; IF (X#U )+(Y#W )MU=J _It__ 

t RETURN __r— G 

3 FOR f1=0TO ZbH; NEXT M; RETURN • O 

3 R=A;GOSUB 1;GOSUB 5;RETURN -I - E 

7 MU=J;L=L-1;GOTO 78 - 

3 BOX X, Y, C, C, 3; U=X; W=Y; RETURN -L~ 

3 B=(Y+K)c8bS+CX+12)c8;RETURN -— — — G 

3 D=-lbD;GOTO 15 _•_ 

. IF ABS(D)=1D=S;F=1;GOTO 15 I 1*1 ffH F 

l D=1;F=S;GOTO 15 F 

3 IF ABSC D)=1D=-S;F=1;GOTO 15 

i d=- i; f=s Multiple deflection 

3 B=E;GOTO 250 pass-thru 

3 FOR R=1T0 H;IF @CR)GOSUB 1;C=7;GOSUB 3;MU=J;IF U>0IF PX( X,Y)=0Q=Q+5 
' NEXT R;RETURN 
3 X=-4;Y=K;RETURN 
3 CY=0;CX=-75;RETURN 

) R=B;GOSUB 1;GOSUB 5;IF A=B TU=43;G0T0 7 
. TU=L;GOTO 78 
3 IF X=68CX=70 

> RETURN - 

) IF @C B )GOSUB 6;TU=45;N=1 
. RETURN 

I CY=-32;INPUT * INPUT 1-4 PLYRS:"P 
. IF (PCI )+CP>4)G0T0 40 
3 T=P;U=-l;FOR N=5T0 &;@C H+N)=0; NEXT N 
) CLEAR ;PRINT " BALLY";PRINT " BLACK";PRINT * BOX", 

! 0=0;Q=0;L=64;1=0;T=T+1;IF T>P T=1;1=4;U=U+1 

3 FOR N=-32T0 32STEP 8;LINE 0,N,4;LINE 64,N,1;LINE N+32,-32,4;LINE N+32,3 
' N;PRINT #1,,T 
I BOX 32,0,67,67,3 

I FOR N=1T0 H+I;@CN)=0;MU=N;NEXT N;FOR N=1T0 5 + — 

f R=RND C 8 )bS+RND (8)+l;IF @(R)G0T0 64 j^Tj [#] |~ 

I @(R 3=1; NEXT N -- 

I IF U=0PRINT ;PRINT " TEST";GOSUB 16 i-- 

I &C20 )=0;GOSUB 18;GOTO 87 -?- 

I X=JXCT)b8+X;IF X<-4X=-4 __ 

: IF X>J X=J __ 

I Y=JY(T )b8+Y;IF Y<-K Y=-K 

! IF Y>K Y=K -L_ J ~ 

\ GOSUB 3 - d - q ~ 

' C=3; IF ABSCYKKIF X<JIF X>-4C=5 —— — — — — 

! GOSUB 8;IF TR(T)GOTO 106 

: goto 80 Deceptive reflection 

; if c=5Goto 500 and absorption 

' IF ABSC Y)=KIF (X=-4)+(X=J3G0T0 80 
I Q=Q+l;L=L+l;IF L>30L=65 

GOSUB 18;PRINT #1,”PROBES=",Q;&(20)=H;NT=H;MU=J;NT=2;GOSUB 3;A=B;G0SUB 


130 D=S;F=1;IF Y=K D=-S 
132 IF X=-4D=1;F=S 
134 IF X=J D=-1;F=S 

140 B=B+D;Z=18;N=0;GOSUB 30;IF NGOTO 7 


Steve WaIters 
556 LangfieId 
Northville, MI 48167 





150 IF @(B-F)+@(B+F)>0GOSUB 6;TU=43;G0T0 7 
1B0 GOTO 210 


Now enter the following: 


200 E=B;B=B+D;G=BcS; IF (RM=0)+(RM=1 )+<B>89)+(B<12)GOTO 20 
210 N=0;GOSUB 30;IF NGOTO 7 
220 IF @(B-F)IF @(B+F)GOTO S 
230 IF @(B-F JGOTO 11 

240 IF @( B+F JGOTO 13 JV=0 ' TV=6 i PRINT "&(9)-81 ; 

250 2=2-2; IF 2<02=0 ni?]rl 42; & ^) =142 '» &(2)=0; &(3)=0; 

252 goto 200 FC-7; H-l00; J=68; K=36; - 

500 MU=J; IF U=0T=4;GOTO 50 rnln’/iNT=2; PRINT; PRINT; 

510 0=l-2bPXCX,Y)+0 GOTO 40 " 

520 IF X O<5GOTO 0 7 J ’ 17,2;IF ° =4G ° SUB 19; CY=-16;PRINT “LAST";PRINT 'GUESS 

G00 GOSUB 16;GOSUB 19;PRINT #1,"SCORE=",Q;@(H+T)=Q;@(H+T+4)=@(H+T+4)+Q 
S30 IF TR(T JGOTO 640 
632 GOTO 630 

640 CLEAR ;CY=32;IF T=PPRINT 'END 
642 PRINT #2,“ROUND',U;FOR N=1T0 P;PRINT ;PRINT #1,“#“,N,“ SCORE=“ @CH+N) ‘IF 
=PPRINT #1,“ AUG=',@CH+N+4)cU, ’ 

648 PRINT ;NEXT N 
650 IF TR(T)GOTO 50 
652 GOTO 650 

i.. 110CY = 18;CX= -41;PRINT “10”,;CX = 38;PRINT 


ANALOG (NON-DIGITAL) CLOCK 

After the clock face appears on the screen the 
computer will take a few seconds to figure out the 
coordinates for the minute dots and store them in 
array locations 0 thru 119. Then, in the upper left 
corner of the screen you will be asked to INPUT 
“H”, hours, “M”, minutes and “S”, seconds. When 
you press GO you’ll see the three clock hands, in¬ 
cluding a moving sweep second hand keeping 
accurate time. If clock speed needs adjusting 
change the value or R in line 230. A smaller 
number will speed up the clock, and a larger 
number will slow it down. 

1 .ANALOG (NON-DIGITAL) CLOCK 
2.BY GEORGE MOSES 
10:RETURN;NT = 0;GOTO 80 
20 D = (C x 10) + (B -i- 12 x 2);XY = 0;LINE 
@(D)-s-2,@(D + 1)-r2,3 
30E = B x 2;XY = 0;LINE @(E),@(E +1),3 
40 FOR F = A x 2TO 119STEP 2;XY = 0;LINE 
@(F),@(F + 1),3;FOR T = 1TO R;NEXT 
T;XY = 0;LINE @(F),@(F + 1),3;NEXT 
F;A = 0;XY = 0;LINE @(E),@(E + 1),3 
50 B = B + 1;IF B =60B =0;C = C +1 
60IF C = 12C = 0 

70XY = 0;LINE @(D)-i-2,@(D +1)-i-2,3;GOTO 20 
80 CLEAR ;FC = 140;BC =0;BOX 
0,0,160,88,1 ;BOX 0,0,100,84,3 
90CX = — 2;CY = 36;PRINT “12 
100CY = 32;CX = -27;PRINT “11”,;CX = 25;PRINT 
“ 1 


“2 

120 CX = -40;CY = 0;PRINT “9”,;CX = 41;PRINT 
“3 

130 CY = - 16;CX = -37;PRINT 
“8”,;CX = 38;PRINT “4 
140CY = - 32;CX = -24;PRINT 
“7”,;CX = 25;PRINT “5 
150 CY = -36;CX = 1;PRINT “6 
160 @ (0) = 0; @ (1) = 30; @ (2) = 4; @ (3) = 30; @ (4) 

= 9; @ (5) = 30; @ (6) = 13; @ (7) = 29; @ (8) = 

17; @(9) = 28; @(10) = 21; @(11) = 27 
170 @ (12) = 24; @ (13) = 25; @ (14) = 27; @ (15) = 
23;@(16) = 29;@(17) = 21;@(18) = 31;@(19) 

= 18;@(20) = 32;@(21) = 15 
180 @ (22) = 33; @ (23) = 12; @ (24) = 34; @ (25) = 

9; @(26) = 35; @(27) = 6; @(28) = 35; @(29) = 

3; @(30) = 35; @(31) = 0 

190 B =28;FOR A = 32TO60STEP2;@(A)= @(B); 

@(A +1) = -(@(B + 1));B = B-2;NEXT A 
200 B = 2;FORA = 62TO90STEP2; @(A) = -(@(B)); 

@(A +1) = - (@(B + 1));B = B+2;NEXT A 
210 B =28;FOR A = 92TO 

118STEP2;@(A) = -(@(B)); 

@(A +1) = @(B + 1);B = B - 2;NEXT A 
220 FORA = 0TO118STEP2;BOX 
@(A),@(A + 1),1,1,0;NEXT A 
230 R = 378 

240CY = 40;INPUT“H”C;CY = 40;INPUT 
“M”B;CY = 40;INPUT“S”A;BOX 
- 65,40,30,8,1 ;GOTO20 
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1 . DAREDEVIL 
2 . BY DAVE MAR 

5 U=7;U=8;L=0;M- JJ|J -ii,.-i™ j 

10 CLEAR ;NT=0;BC=0;FC=253;BOX 0,35,160,13,1;BOX 0,35,158,11,2;Y=5;FOR.X=-68T0 
70STEP 2;A=Xc20;A=ABS(RM);BOX X,Y,1,1,1 

20 BOX X,Y+l,1,3,A=0;BOX X,Y+2,1,5,A=10;NEXT. X;CY=15;CX=-52;PRINT ”40“,;CX=W;P 
RINT 280;BOX 0,-5,45,J, 1;BOX 0,-5,43,9,2 

30 Y=-15;X=S0;BOX X,Y,33,13,1;BOX X,Y,31,13,2;BOX X,Y,21,25,1;BOX X,Y,21,23,2; 
CX=-30;CY=-15;PRINT "MILES TO GO 

35 CY=-35;CX=52;PRINT “TIME";GOSUB 8G0;BOX 0,22,43,J,3;BOX 0,22,41,J,3;A=RND C 
10)+20;Y=A;M=0;T=0;P=l;N=5;GOTO 50 
40 P=RND (3); IF P=1P=5 
50 IF ABSC L ) >17G0T0 430 

60 GOSUB 650;GOSUB 450;GOSUB Bb10+60;GOTO 200 
70 M=Mb3+RND C10 )+20;RETURN 
. 80 M=Mb3c2+RND C6 )+7;RETURN 
90 M=Mb7c8+RND (5)-6;RETURN 
100 M=Mb3c4-RND C9);RETURN 

110 M=Mb9c10+RND (Mc5+1 );L=L+25b(< B=5)b2-l);RETURN 

120 M=Mb13c14+RND (Mc5+1);L=L+15b<(B=6)b2-l);RETURN 

130 GOTO 110 

140 GOTO 120 

200 IF M<0M=1 

210 IF A-Mc80 >0GOTO 320 

220 T=T+Ab3600cM 

230_CY_=WiCX=-59;BOX 0. W. 160, J, Z \PRINT “F I NISH LIN E";GOSUB 6G0;CX=-7;CY 

= -5; PRINT “0.0 ......•__ j 

240 CY=-24;PRINT “YOU PLACED #",*3,Tc<Yb2 )-5;PRINT “AVG. SPEED = “,*1,Yb3G0cCTo 
9), “MPH 

270 IF JYCDRUN 
280 GOTO 270 

320 IF M>280CY=-30;PRINT “LEAD F00T!!“;GOTO 430 
390 T=T+30;A=A-Mc80 
395 IF M< 20GOTO 50 

400 IF (P=l)+(P=2)+(P=4)+(P=6)GOTO 40 
410 P=P+1;GOTO 50 

430 GOSUB 650;IF M>280BOX 0,3,160,1,1 

440 CY=W;CX=-65;PRINT “SMASH - INTO THE WALL!“;GQTO 270 

450 CX=-71;CY=W;BOX 0,W,158,11,2;GOSUB 450+Pbl0;GOTO 515 

460 PRINT “ STARTING LINE";RETURN 

470 PRINT “ MID STRAIGHT-AWAY";RETURN 

480 PRINT " APPROACHING LEFT TURN";L=L+McCV+U);RETURN 

490 PRINT “ MID LEFT TURN“;L=L+McV+7;RETURN 

500 PRINT * APPROACHING RIGHT TURN“;L=L-Mc(V+U);RETURN 

510 PRINT “ MID RIGHT TURN*;L=L-McV-7;RETURN 

515 IF N=0IF A=QGOTO 520 

516 IF A=Q N=N-1;GOTO 520 

517 N=RND (5)+4 

520 BOX 0,3,160,1,2;F0R X=-70TO Mc2-70STEP 2;B0X X,3,2,1,1;NEXT X;Q=A;CX=-7;CY= 
-5;PRINT #1,A,“.“,N;GOSUB 660 

540 FOR B=1T0 8;CY=-30;BOX -47,CY,66,8,2;GOSUB Bbl0+550;FOR Z=1T0 70;IF TR(1)CY 
=-30;PRINT "<HERE GOES>“;RETURN 
550 NEXT Z; NEXT B; GOTO 540 ■ 
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Ayatollah Dant Boand 
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Kill the Vulcan 
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5G0 PRINT -FLOOR IT’;RETURN 
570 PRINT 'ACCELERATE';RETURN 
580 PRINT 'BRAKE";RETURN 
530 PRINT “BRAKE HARD";RETURN 
B00 PRINT "SHARP RIGHT";RETURN 
G10 PRINT “RIGHT*;RETURN 
G20 PRINT "SHARP LEFT“;RETURN 
630 PRINT "LEFT";RETURN 

G50 BOX 0,22,33,J,l;BOX L,20,3,5,2;BOX L,25 
,3,2;B0X L+2,25,1,2,2;BOX L-2,25,1,2,2;RETURN 
BG0 CY=-15;CX=55;PRINT #1,T;RETURN 


Dave Martin 

3408 Braddock St. 
Kettering, OH 45420 


1,4,2;BOX L-3,13,1,3,2;BOX L+3,13,1 


DAREDEUIL You see a windshield and instruments. The car on the screen is 
located laterally according to your instruct ions. The available 
instructions will appear at the bottom in order, use TR( 1) to choose. 
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2 . - " 

3 .THE PITS 

4 .BY REX GOULDING 

5 &(9)=167;&(11)=249; &( 1)=249;FC=249; 
10 CLEAR 

17 PRINT 

18 PRINT " THE PITS!‘ 

19 PRINT 

, 20 PRINT “ENTER NAME, THEN PRESS GO* 

30 N=0 

40 FOR A=1T0 10 
50 B=KP 

; S0 IF B=13G0T0 110 
70 TU=B 
80 N=N+1 
90 @(A)=B 
100 NEXT A 
110 CLEAR 
115 PRINT 

120 PRINT “THANK YOU 
130 FOR A=1T0 N 
140 TU=@(A) 

150 NEXT A 

160 FOR A=1TO 152 

165 NEXT A 

170 CLEAR 

200 X=-76;Y=26 

210 C=0 

220 FOR A=1T0 100 

230 BOX 75-RND (145),4i-RND (77),7,7,1 
240 NEXT A 

243 PRINT “BEGIN* 

244 BOX X,Y,1,1,3 

246 BOX 72,-42,3,3,3 

247 CX=-77;CY=-40 
250 IF JX(1)GOTO 270 
255 IF JY(1)GOTO 270 
260 GOTO.250 

270 PRINT 

275 BOX 72,-34,3,3,3 
280 BOX 72,-42,3,3,3 
290 Y=Y+8 

295 BOX 76,0,1,80,1 
300 FOR A=1T0 10 

310 BOX 75-RND (145),-27-RND (8),7,7,1 

320 BOX X,Y,1,1,3 

330 X=X+JXCl)b2;Y=Y+JYCl)b2 

340 BOX X,Y, 1,1,3 

350 IF PX(X,Y)=0GOTO 410 

360 MU=“1“ 

370 NEXT A 
380 C=C+1 
400 GOTO 270 

410 IF X=72IF Y=-42G0T0 560 
420 FOR A=1T0 10 
430 &(23)=255; &( 21)=255 
440 BC=40 


PITS The object of the game is to 
moue the small dot in the upper | eft 
corner past the pits to the center 
of the medium-size box in the lower 
■~ight corner. The clunker is that 
the pits moge up the screen all the 
time and can catch you. Each time 
the screen rolls up is counted as a 
•noge. ft successful trip in 16 
moges is doing wel I . 

T. R. Goulding, MMC 
CPO MESS 

USS CALIFORNIA CGN-36 
FPO New York, NY 09566 


0 NEXT A 
0 FOR A=1T0 30 
0 BC=55 
0 NEXT A 

0 &( 23 )= 0 ;&( 21 )=0 
0 BC=119 

0 PRINT “YOU BLEW IT “, 

0 FOR A=1T0 N 
0 TU=@(A) 

0 NEXT A 
0 GOTO 620 
0 PRINT “YOU WON “, 

3 FOR A=1T0 N 
3 TU=@(A) 

3 NEXT A 

3 PRINT C,“ MOOES” 

3 IF C<16PRINT "GOOD WORK Ml- 
3 PRINT 

3 PRINT “PLAY AGAIN? (PULL TRIGGER 
3 FOR A=1T0 150 
3 IF TR(1)GOTO 110 
3 NEXT A 

i PRINT “NEW PLAYER? (PULL TRIGGER 
) FOR A=1T0 150 
I IF TR(1 )CLEAR ;GOTO 17 
I NEXT A 

I PRINT “SO LONG FOR NOW 
:RETURN 





The UIPER SYSTEM 1 is the first of a series of custom manufactured, 
quality products made for the Bally Home Computer/ProfessionaI Arcade. 
With this ‘system, you can begin the evolution of your Bally from the 
Professional Arcade to a powerful graphic computer. The UIPER SYSTEM 1 is 
a lot more than just a 1SK memory expansion. Features and capabilities are 
listed as follows: one dual position front panel select switch for 
starting the memory at either 8 or Z4K. This will make it convenient for 
the user to copy any game cartridges and run them in extended RAM where 
they can be modified or copied to tape. Next, one dual position front 
panel switch for Auto-Write-Protect or Programmable Write-Protect. The 
Automatic Write-Protect mode allows the user to load Jay Fenton's excellent 
new 8K Extended Basic from tape, and then use the Basic to write programs 
in the remaining 8K. The ProgrammabIe-Write-Protect allows you to 
Write-Protect or Write-Enable the entire 1SK RAM board with simple Basic 
statements. Next, the RAM board located inside the cabinet has two eight 
position DIP switch packs. Switch pack one enables 4, 8, or 16K bank 
selectable addressing, and switch pack two controls special bus functions 
to the Bally and selects either external or internal clocking. SYSTEM 1 
also includes a fuse-protected +/- 5 volt and +/- 12 uolt power supply. 
These voltages provide power to the RAM and keyboard interface circuitry. 
Also included is a heavy duty grounded AC line cord, and filtered AC outlet 
on the back that is controlled by the front panel switch. The SYSTEM 1 
Interface Board provides the bus conversion from the Bally to the UIPER 
bus, plus a serial keyboard interface which will allow the use of a UIPER 
or other serial ized ASCII keyboard with the system. It also includes one 
bus cable connecting the UIPER to the Bally. The RAM board and keyboard 
can be unplugged from the SYSTEM 1 and Iater plugged directly into the 
SYSTEM 5 without any changes because the equipment is completely (software 
and hardware ) compatible. For those of you who are home-brewers, when the 
SYSTEM 1 is upgraded to a SYSTEM 5, the SYSTEM 1 cabinet, power supply, 
and bus interface card can be used to help prototype your own computer 
circuits. The entire system is housed in an attractive heavy duty black 
aluminum cabinet with simulated wood grain side panels and custom 
silk-screening. The dimensions are 10"xi0‘x4-l/4* 

Due to the response received when originally advertised in past issues 
of the ARCADIAN, there have been several changes and improvements made to 
the System RAM card and Interface Card. Therefore, please refer to this 
advertisement and following advertisements for accurate product 
inf orma tion, pricing, and availability. SYSTEM 1 is available now for 
the special introductory price of #225, and a free Extended Basic (on tape 
and documentation) is included. 

Alternative Engineering, Inc. P. 0. Box 128, Gardiner, ME 04345 












EPROM BURNING nou» available via Perkins Engineering. Send your machine 
code program on tape and S20, and receive the program blasted into a 2532 
or 2732. You will then be able to plug the program into the machine via 
the game cartridge slot (you have to make up the mechanical parts), just 
like the commercial ones. Anything can be loaded (up to 4K). Blue Ram 
owners can upload a Ba I ly-.game, modify the rules, playing field, whatever, 
and have this personal modification made relatively permanent (since the 
EPROM can be erased). Contact Perkins Engineering, 1004 
Pleasant five., Boyne City, MI. 49712 

NEWLY released Bally Uideocade game - Galaxian - now available. Send 
for free price list, special discount to ARCADIAN readers. SFP, 1064 N. 
Alta, Dinuba, CA 93618 

New Bally Arcade with Basic and Interface S250 Marshall Fong, 
213-666-6197 

TRADE game cartridges Marshall Fong, 213-666-6197 
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ZIP CODE ADDITION came through this month - you'll see the additional four 
digits on my return address. Certainly not needed now, but its another 
step for the planned automation of some of the mails. 


RESUBSCRIPTION TIME AGAIN The next issue will be the last for Uolume 
Three, and Uolume Four is currently scheduled to start in November. I run 
this paper on an Annual Uolume basis, for ease in bookkeeping and 
calculating printing quantities. The subscription rate will again be 
S12.50, and subscriptions are now being solicited. 

SACKCLOTH AND ASHES heaped upon me by Steve Walters because I left out some 
data which would make the Bally Black Box Clast issue) more understandabIe 
and useful. The required data is at the top of page 118. 

SERENDIPITY, at least that's what Skip Atkinson expressed, telling me that 
the little music program by Mike Peace made a nice addition to the 'Old 
Bent Nose' program, both in the last issue. He suggests the following: 
Delete lines 1,2,3 and change 710 to: 710 RETURN then change 1090 to 

read 

1090 @(A)=@C R); R)=0;GOSUB 1150;RETURN 

and add 

1150 FOR A=25BTCr 0STEP -4 
1160 &( 23 )=R; &( 21 )=A; &C 19 )=200 
1170 NEXT A;&C23)=0;&(21)=0;RETURN 


TELEPHONE GYRATIONS Moving another step into the computerized 
communications world, I now have Ma Bell's "call‘forwarding" system, which 
.al lows me to transfer daytime incoming cal Is to another I ine. In doing so, 
the number here changed and. is now 408-272-10S0. 


HOW TO ADD SOUND EFFECTS 
TO DAREDEVIL 

By George Moses 

One of the most delightful games I’ve seen in recent months 
is the Daredevil game that appeared in the August issue of 
Arcadian. Unfortunately, because of sketchy directions it took 
awhile to fully understand how to play the game. It’s really very 
simple. Look at the top of the screen for information of the 
road ahead and the lateral position of the car on the track. Look 
at the bottom of the screen for a choice of commands to make 
the car go faster, slower, right or left, with two intensities for 
each command. When the command you want to use shows on 
the screen, simply pull the trigger and watch what happens. If 
the command goes by before you can trigger it, just wait. It will 
come around again. 

Daredevil lacked only one feature. Sound effects! I have 
fixed that with the following changes that’ll make you think 
you’re at the Indy racetrack with pistons popping and cars 
crashing into the wall... 


You’ll need to gain some memory space, so delete lines 1 
through 4. Also, delete the NT = 0 from line 10. We’ll type that 
in later as a direct command. Now change the following lines: 
210 FOR C = 17TO 22;&(C) = 200;NEXT C;8,(16) = 255 - M;8,(20) 
= 100;IF A-M+ 80 ►OGOTO 320 
270 FOR A = 16TO 23;&(A) = 0;NEXT A;IF JY(1)RUN 
Without a line number type the following: 

:PRINT;LIST;PRINT "-.RETURN ;NT = 0;RUN 
Don’t hit GO until you have your tape player running on 
RECORD for a few seconds. Press GO and the program will be 
saved on tape complete with the automatic -.RETURN to turn 
off your interface, the NT = 0 command and a RUN to autostart 
the program from tape. Once you learn to play this game you’ll 
love it!!! 


©R8I goUvifABRlS 



4 . 

5 .INVISIBLE WAR 

6 .BY JAMES WINN 

120 CLEAR ;FC=7;BC=0;NT=0 
130 C=0;D=0;H=0;1=0 
140 PRINT “DIFFICULTY 

150 PRINT *1. EASY';PRINT “2. MEDIUM";PRINT "3. HARD 

180 K=KNCl)c100+2 

130 CX=-40;CY=-20;PRINT K 

200 IF TR(1)GOTO 220 

210 GOTO 180 

220 E=K;CLEAR 

230 PRINT "HOW MANY LASER BLASTSPRINT "FOR YOUR SHIP 

240 J=KN(1 )c3+57 

250 CX=-40;CY=-20;PRINT J 

255 FOR N=1T0 400;NEXT N 

250 IF TR(1)GOTO 280 

270 GOTO 240 James Winn 

280 F=J;CLEAR Box 98 

230 A=RND (76)-38 - Boiling Springs, 

300 B=RND (76)-38 

310 A=R+JY(l)bl0 

315 GOSUB 710 

320 IF A >38A=38 , 

330 IF A<-33A=-33 b 

340 IF B<-33B=-33 c 

370 IF B>A-10IF B<A+10GOTO 525 

380 IF JY(1 )=0GOTO 400 

330 BOX -80,A,11,1,3;B0X -53,A,2,7,3;BOX -50,A,11,7,2 
400 IF TRC1)GOTO 440 
410 GOTO 310 

440 BOX -60,A,11,1,3;BOX -63,A,2,7,3 

460 LINE -50,A,4;LINE 60,A,3 

470 &( 21)=255;&(23)=255 

480 LINE -50,A,4;LINE 60,A,3 

485 BOX -60,A,11,7,2 

430 &( 21 )=0; &( 23 )=0; 1=1+1 

500 IF A>B-10IF A<B+10B=A;H=1;GOSUB 700;GOSUB 800 

505 IF I=FGOSUB 700;GOTO 310 

508 IF I+10=FGOSUB 700;GOSUB 1000 

510 IF TRC1JGOTO 510 

520 GOTO 300 

525 &( 3 )=33; FC=127; &(2 )=7;&( 3 )=7 

530 BOX 50,B,11,1,3;BOX 60,B,1,5,3 

550 LINE 50,B,4;LINE -60,B,3 

560 &( 21)=255;&(23 )=255 

570 LINE 50,B,4;LINE -60,B,3 

575 BOX 60,B,11,5,2 

580 &(21)=0;&(23)=0 

530 IF E=lGOTO 650 

600 IF E=2G0T0 630 

610 IF B >A-7IF B<A+7G0SUB 700;GOSUB 800 

630 IF B>A-5IF B<A+5G0SUB 700;GOSUB 800 

650 IF B>A-3IF B<A+3GOSUB 700;GOSUB 800 

655 IF TRC1)GOSUB 710rGOTO 440 




GS0 

700 

710 

800 

803 

805 

810 

812 

815 

820 

840 


310 

812 

315 

317 

320 

330 

1000 

1010 

1020 

1030 

1040 

1050 

1080 

1070 


1030 


GOTO 300 

&(3)=50;&(2 )=0;&C 3)=0;FC=7;RETURN 

&(9)=71;PC=7;&(0)=0;&C1)=0; &(2 >=57;&C3 )=57;RETURN 

IF H=lGOTO 805 

P=-60;Q=A;GOTO 810 

P=60;G=B 

IF Q>33Q=33 

IF Q<-34Q=-34 

^V = f 55;&C23)=255;F ° R L=1T ° 15 'BC=7;BC=0 ; FC=90 ; BOX P,Q,L,L,1;NEXT L 

XF H-7r-? + t 1 2 3 4 5 * 7 8 * 10 r^n aZZ°* P ’ Q ’ L ’ L ’^ <^XT L;&( 21 >=0; &( 23 )=0; CLEAR 
IF H—1C—C+l;GOTO 900 

D=D+1 

FOR N=1TO 200;NEXT N 

H=0;B=50;CLEAR ;RETURN 

FC=7;CX=-G2;CY=40;PRINT C,D 

CX=-20;CY=0;PRINT ’GAME OUER 

CY=-35;PRINT * TO PLAY PUSH JOYSTICK 

FOR N=1T0 1000;NEXT N 

IF JYCDRUN 

GOTO 920 

CLEAR ;NT=0;FC=126;BC=0 

CX=-80;CY=35; PRINT *10 LASER BLASTS LEFT 
FOR L=1T0 10 

CX=-30;CY=0;PRINT “CRITICAL!i! 

X=-30;Y=0;BOX X,Y,90,8,2 
&<17)=12;&(22)=250 
FOR N=1T0 100 
NEXT M 

&(17)=0;&C22)=0 
NEXT L; CLEAR ;RETURN 


1 . 

2 . SYMMETRICAL ART 

3 . BY ROB ROSENHOUSE 

4 . FOR SUPER SOFTWARE 

5 . 

8 . 6/10/1981 

7 . 

8 . 

3 :RETURN ;NT=0;Z=RND C15) 

10 CLEAR ;LINE 0,-40,4 
20 FOR A=40TO -40STEP -Z 

30 LINE 78,A,3;LINE 0,-40,4;LINE -78,A,3;LINE 0,40,4 
70 LINE 78,A,3;LINE 0,40,4;LINE -78,A,3;LINE 0,-40,4 
80 NEXT A 
90 IF C=2G0T0 200 
35 C=2 

100 FOR A=2T0 82STEP Z. 

110 BOX 0,0,A,84-A,3 
120 NEXT A 

150 FOR A=1T0 1000;NEXT A 

180 BC=RND C258);FC=BC+12+8bRND <32 ) ;RUN 

200 Z=Zc2;IF Z<1Z=1 

205 FOR A=40TO 0STEP -Z 

210 LINE 0,A,4;LINE A,0,3;LINE 0,-A,3;LINE -A,0,3;LINE 0,A,3 

_ 220 NEXT A 

230 C=1;GOTO 150 
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tellinc iiu * * <it 

By Bob Hensel v^P 

5 :RETURN ;CLEAR ; NT=1;BC=249;FC=7;&(0)=249;&(1)=249;&C2)=126;&C3) = 126;&(9 )=8 
4;PRINT "SCORE",;K=500 

10 CY=2S;CX=16;PRINT "11 1 

20 CY=29;CX=37;PRINT "12" 

40 CY=13;CX=7;PRINT "10 2 

50 CY=0;CX=9;PRINT "9 3 

60 CY=-12;CX=13;PRINT "8 4 

70 CY=-24;CX=22;PRINT *7 5 

80 CY=-30;CX=39;PRINT "8 

130 BOX 40,0,80,80,3;BOX 40,0,74,74,3;BOX -40,42,4,2,1;BOX -40,40,8,2,1;BOX -48 
,37,8,4,l;BOX -40,35,10,2,1;BOX -40,33,12,1,1 
320 BOX -40,29,14,8,1;BOX -40,28,18,5,1;BOX -40,28,18,3,1;BOX -40,28,IS,1,2;BOX 
-40,28,14,3,2;B0X -40,28,10,5,2 

340 BOX -40,28,3,3,1;BOX -40,30,1,2,1;GOTO 3000 
500 20203 )=256bU+H; CALL 20200; RETURN 

890 LINE 39,0,4;GOSUB 900+M;LINE X,Y,E;MU=69;GOTO 990 
900 X=39;Y=24;RETURN 

905 X=53;Y=21;RETURN Bob Hensel 

910 X=60; Y=* 12;RETURN 3428 Ingleside Aue S. 

915 X-63;Y-0;RETURN • Cottage Grove, MN 5501G 

920 X=60;Y=-12;RETURN 

925 X=S3;Y=-20;RETURN 

930 X=39;Y=-24;RETURN 

935 X=25;Y=-20;RETURN 

940 X=18;Y=-12;RETURN 

945 X=15;Y=0;RETURN 

950 X=18;Y=12;RETURN 

955 X=25;Y=21;RETURN 

990 LINE 40,1,4;GOSUB 1000+R;IF M<30GOTO 995 

992 X=X+2; IF R<9IF R>3X=X-4 ~T II W I I I I ..hmumbhh 

994 Y=Y+2; IF R<GY=Y-4 | A 

995 LINE X, Y, E; MU=67; GOTO J gSHBMHBHBWBMi I 

1001 X=48;Y=12; RETURN & tO 

1002 X=53;Y=7;RETURN I it | ■■ 

1003 X=54;Y=1; RETURN f| 

1004 X=53;Y=-7;RETURN q % ^ 

1005 X=48;Y=-12; RETURN . RIG H T J 

1008 X=40;Y=-14;RETURN ■ | 

1007 X=30JY=-12; RETURN • *| I 

1008 X=25;Y—7;RETURN TIME IS 7 / 5 1 

1009 X=26;Y=1;RETURN Oil 

1010 X=27;Y=7; RETURN P * SQ IbmbWM WIMBWM \ 

1011 X=30;Y=12; RETURN *** _ 

1012 X=40; Y=14; RETURN 1-ff § m I HHH l j 

3000 R=RND (12);M=RND C12 )b5-5;E=1;J=3020;GOTO 890 

3020 CY=-32;PRINT "THE TIME IS*;A=0;B=0 

3028 A=A+JY(1);B=B+JX(1)b5;CY=-40;CX=-G5;PRINT #1,A,":",#1,Bcl0,#1,RM," ",;IF TR 
C1)=0GOTO 3028 

3050 CY=0;CX=-71;IF A=RIF B=MGOSUB 8000;GOTO 4000 

3070 GOSUB 7000;PRINT #4,R,*:“,#1,Mcl0,#1,RM;GOSUB 8000;GOTO 4000 

4000 A=RND (12 );B=RND C12)b5-5;CY=-32;PRINT “SET TIME TO";PRINT #4,A,":",#1,Bcl0 

,#1,RM,* ", , 


sV 


, #1,Be10,#1,RM," 


Uj 
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4045 IF JY<1)=0IF JXC1)=0GOTO 4075 

4046 E=2;J=4050;GOTO 830 ^“ 

4050 IF JXC1)#0R=R+JX(1 ) 

4060 IF JYC1 )#0M=M+JY(1)b5 

4065 IF (R<1)+(R>12)R=1 

4067 IF (M<0 )+(M>55)M=0 

4070 E=1;J=4075;GOTO 890 — 

4075 IF TRC1 )=0GOTO 4045 

4080 CY=0;CX=-71;IF fl=RIF B=MGOSUB 6000;E=2;J=3000;GOTO 890 
4090 GOSUB 7000;E=2;J=4100;GOTO 890 
4100 R=ft;M=B;E=1;J=4110;GOTO 890 
4110 GOSUB 8000;E=2;J=3000;GOTO 890 

6000 PRINT 'R I G H T*;Y=50;FOR X=110TO 50STEP -3;H-X;Y-Y-2;O-Y;GOSUB K;GOSUB K; 

60J.0 NT=15;F0R Z=1T0 5; GOSUB K; MU=70; GOSUB K; NEXT Z;BOX -40,0,70 10 2;S=S+1-CY=3 
0;CX—65; NT-1; PRINT *1, S, ; CX=-77; RETURN ’ ' 3 

STkSSS 2- N ?-?4?uRN T ' 10!U * S0:H ‘ 110!FOR Z ' 1T ° S!G0SUB K5MU “ 6B :MU-60;MU-48:GO 

8000 FOR Z=1T0 1000;NEXT Z;BOX -40,0,75,40,2;RETURN 

> ' 

This is an educational game to help . 

children learn to tell time. The P #( 20200 )= -43 

computer will randomly set the clock 2 „ P 

and ask 'THE TIME IS' the hours and ^ 10240 

minutes can be entered by using JX(1) o ?° 2 1° 24 68 

and JY(1). If the answer is right 10 " 26 ? 6 28 

a bird will fly from the clock to the 12 ^ 2 Aon 28 5460 

bell and ring it. One will be added f ‘ 30 32612 

to the score. If you are wrong the l6 32 2036 

bird will appear and chirp 'COO COOl 18 527 3/1 2044 

Pull TR(1) when you have completed an answer. 20 247 38 1022 

The computer will then ask you to set 22 78 38 248 

the time to a random time. You can ' 40 224 

move the hands by using JX(1) and JY(1) . 42 _ 0 


The bird is drawn using the Graph 
Char Maker by Rich Tietjens (see 


LEFT 

RIGHT 

0 

68 

0 

204 

29 

84 

21 

100 

127 

244 

7 

252 

7 

254 

3 

248. 

O 

224 

0 

0 


This segment is provided in 
case you want to try your 
hand at making the bird 
yourself. You don't have to, 
since the XC20200) data 
shown to the right will input 
the proper figure. 


1 8 n87i 24 68 

io -'Jin * «? 

5 12 - -32690 f 0 %! & ° 

20 -24? It '° 2 J 

22 78 M %£ 

J %( 20244)= o 

TELLING TIME 

To input this program to tape so it’ll automatically load the 
listing plus the data.you’ll have to load it in two sections. Just 
follow these directions. 

Type the program into the computer then proofread. DO NOT 
RUN PROGRAM. Save it on tape by typing this command: 

■.PRINT ;NT=1;UST ;PRINT INPUT 1 
Start your recorder on RECORD, then press GO. As soon as 
the program is done listing stop your recorder and RESET the 
computer, clearing the memory. Next, input this 2 line pro¬ 
gram: 

10 CLEAR; FOR A = 20200TO 20244STEP 2;PRINT 
“%(”,lt1,A,“) = ",;INPUT “ "@(A - 20200);NEXT A 
20 A = KP; .PRINT ;NT = 1;CLEA R ;TV = 0;TV = 1;FOR 
A=20200TO 20244STEP 2;PRINT 

#1,A,“) = ”, @(A- 20200);NEXT A;PRINT "RUN 
Run this program and it will print “%(20200) = ” on the 
screen. See the chart above and input -43. As each suc¬ 
ceeding number comes up, input the number in the right col¬ 
umn, pressing GO after each entry. After the last entry of zero 
into address 20244, start your recorder on RECORD. Then 
press any key on your keypad and the data you have just input 
will be printed to tape automatically! 
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2 .KENO II 2.0 

3 .(01381 MSK 

4 PRINT “PROGRAM DISPLAYS KENO CARDAND CASH REMAINING. YOU PICK 1 TO 15 NUM 
BERS USINGHAND CONTROLLER.”, 

5 PRINT “ NUMBER OFPICKS IS TALLIED NEXT TO GO. IF YOU PICK 1 TO 14 NUMBER 
S, PICK GO TO START. 

S PRINT "THE COMPUTER PICKS AND DISPLAYS 20 NUMBERS AND CALCULATES PAYOF 


7 PRINT “ TO SEE 

8 PRINT 

9 INPUT ”STAKE“C 


TO SEE PAYOFF TABLE PUSH 


”,;IF KP="c“GOTO 2000 


10 T=0;CLEAR ;GOSUB 300;C=C-1;CY=-33;CX=43;PRINT *S”,#5,C, 

20 GOSUB 800;IF N<S1G0SUB 700;IF TC15G0T0 20 
30 GOSUB 600;GOSUB 500;IF H=0B=0;GOTO 40 
35 B=@( R+H-1);C=C+B 

^40 CX=-59;PRINT “OF”,#3,T,,"GOT”,H,,“PAYS®”,#5,B, 

45 IF C<1ST0P 
50 IF TR(1)GOTO 10 
60 GOTO 50 __ 

500 R=0;IF Y=1RETURN 

.510 FOR S=1T0 T-1;R=R+S;NEXT S;RETURN 

600 H=0;FOR U=1T0 20;U=RND (80)-l;O=Ucl0;W=RM;X=-73+Wbl6;Y=39-Ub9;IF PX(X-6,Y+4 
)=0GOTO 680 

, 610 IF PX(X,Y)=0U=U-1;GOTO 690 ' 

620 H=H+1 ' 

630 GOTO 685 Mark KelIer 

680 IF PX(X,Y)U=U-1;GOTO 690 9536 Shumway Dr. 

685 BOX X,Y,11,7,3 Orangeoale, CA 95662 

690 NEXT U; RETURN _ _ . 

700 IF PX(X-6, Y+4 )T=*T+1; GOTO 720 
710 T=T-1 

720 CY=-33;CX=-53;PRINT #2,T,;RETURN 
800 X=-73;Y=39;BOX X r Y,13,3,3 

810 I=X;J=Y;X=X+JX(1)bl6;Y=Y+JY(1)b9;X=X+16b(X<-75)-16b(X>75);Y=Y+9b(Y<-25 )-9b( 
Y >40 ) 

815 IF X=-73IF Y=-24IF JY(1)=-lY=-33 

820 BOX I,J,13,9,3;BOX X,Y,13,9,3;IF TR(1)=0GOTO 810 
830 N=(X+73)c16+1-(Y-39>c9b10;RETURN 

900 FOR Y=0TO 7;CY=39-Yb9;FOR X=1T0 10;C>^=-91+Xbl6;PRINT #2,X+Yb10,;NEXT X;NEXT 
Y;CY=-33;CX=-75;PRINT ”G0”,;RETURN 

2000 PRINT ;FOR T=1T0 15;GOSUB 500;FOR Q=1T0 T;PRINT #3,*PICK”,T,” GET”,Q,“ WIN 
S",#5,@(R+Q-l);NEXT Q;NEXT T;GOTO 9 


3000 :PRINT ;LIST ;FOR' A=0TO 119;PRINT 
;NT=1”;:RETURN ;NT=1 


To more easily input the arrays to memory we have included 
an array-building loop. Type in the KENO program, then proof¬ 
read your listing. DO NOT RUN THE PROGRAM. 

Type in this program without a line number: 

CLEAR ;FOR A=OTO 119;PRINT"@(",#1,A,")=*”,;INPUT 
" ”@(A);NEXT A 


”,#1,A," )=”,@(A);NEXT A;PRINT *:RETURN 


The screen will prompt you for each data entry with 
“@(0) = ”, etc. Just input the values from the chart (only the 
numbers to the right of the equals sign) pressing GO after each 
entry until you have input all the data through array address 
@(119). 

When the entries are complete, start your tape recorder in the 
RECORD mode. Then type: 


Your program and the array you have just created will be 
saved on tape automatically! 


116 





Rsp ^Auv-v 'S.t. AC X 


When the program is loaaea ana you are 
ready to put it on tape, you must 
include certain variables on the tape 
which must be set independently of the 
program operation. Use the following 
proce dure: 

To start the taping process enter 
:PRINT; PRINT ".BALLY BLACK BOX"; PRINT; 
PRINT ".BY STEVE WALTERS"; PRINT; LIST; 
PRINT; PRINT ".STAND BY FOR"; 

PRINT RETURN; :INPUT 6" 


Watch for the last statement (:RETURN; 
:INPUT 6 ) to appear. When it appears 
on the screen, turn the tape off but 
do not rewind the tape. 

Now enter the following: 

:PRINT; TV=0; TV=6; PRINT "&(9)-81; 
4(0)=142; &(1)=142; &(2)=0; &(3)=0; 
BC=155; FC=7; H=100; J=68; K=36; 

S=10; :RETURN; NT=2; PRINT; PRINT; 

GOTO 40" 

Again do not press GO until the tape 
is running on record, then press GO. 
When the statement is done printing, 
turn the tape off, and it is ready for 
loading when needed using :INPUT . 

The above procedure can be done without 
resetting the computer and losing the 
operating program. Therefore, you can 
check the results with :LIST if you 


A E 1 H y^n <( (O j ,ppe.r, ii .t ) tK« t pro6€ entry location If the probe <> r 

■«» * b *!L l0cltl0 ". b > ■wi"* the indicator to the location Inside th 
lere you think a ball Is hidden, and then pulllnj the trlgjer. The M 
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quality products made for the Bally Home Computer/ProfessionaI Arcade. 
With this system, you can begin the evolution of your Bally from the 
Professional Rrcade to a powerful graphic computer. The UIPER SYSTEM 1 is 
a lot more than just a 1SK memory expansion. Features and capabilities are 
listed as follows: one dual position front panel select switch for 

starting the memory at either 8 or 24K. This will make it convenient for 
the user to copy any game cartridges and run them in extended R8M where 
they can be modified or copied to tape. Next, one dual position front 
panel switch for fluto-Write-Protect or Programmable Write-Protect. The 
Butomatic Write-Protect mode allows the user to load Jay Fenton's excellent 

new 8K Extended Basic from tape, and then use the Basic to write programs 

in the remaining 8K. The ProgrammabIe-Write-Protect allows you to 
Write-Protect or Write-Enable the entire 1EK RAM board with simple Basic 
statements. Next, the RAM board located inside the cabinet has two eight 
position DIP switch packs. Switch pack one enables 4, 8, or 16K bank 
selectable addressing, and switch pack two controls special bus functions 

to the Bally and selects either external or internal clocking. SYSTEM 1 

also includes a fuse-protected +/- 5 volt and +/- 1Z volt power supply. 
These voltages provide power to the RBM and keyboard interface circuitry.. 
Also included is a heavy duty grounded AC line cord, and filtered AC outlet 
on the back that is controlled by the front panel switch. The SYSTEM 1 
Interface Board provides the bus conversion from the Bally to the UIPER 
bus, plus a serial keyboard interface which will allow the use of a UIPER 
or other serial ized ASCII keyboard with the system. It also includes one 
bus cable connecting the UIPER to the Bally. The RAM board and keyboard 
can be unplugged from the SYSTEM 1 and Iater plugged directly into the 
SYSTEM 5 without any changes because the equipment is completely (software 
and hardware) compatible. For those of you who are home-brewers, when the 
SYSTEM 1 is upgraded to a SYSTEM 5, the SYSTEM 1 cabinet, power supply, 
and bus interface card can be used to help prototype your own computer 
circuits. The entire system is housed in an attractive heavy duty black 
aluminum cabinet with simulated wood grain side panels and custom 
silk-screening. The dimensions are 10*xl0*x4-1/'4“ 

Due to the response received when originally advertised in past issues 
of the ARCADIAN, there have been seueral changes and improvements made to 
the System RAM card and Interface Card. Therefore, please refer to this 
advertisement and following advertisements for accurate product 
informat ion, pricin g , • and av a i I ab i I ity. SYSTEM 1 is available now for 
the special introductory pr?ice of *2ZS, and a free Extended Basic (on^tapeT 
and documentation) is included. 

Alternative Engineering, Inc. P. 0. Box 1Z8, Gardiner, ME 0434S 










ADS 


The "FALL 1981 BALLY Professional ARCADE Software and Hardware SOURCEBOOK? 
will be available October 15th. Over 90, 8J- by 11 pages with pictures. Includes 
the following Sections: System Summaries; Complete Software and Hardware Index; 
ARCADIAN Program Descriptions; THE BASIC EXPRESS Program Descriptions; Software 
Sources; Hardware Sources; Dealer List; Repair Services; Manuals Available; and 
User Groups. The ARCADIAN and THE BASIC EXPRESS entries are current thru the 
September editions of the Newsletters. RMH Enterprises 

The price for the SOURCEBOOK is $ 6.00. 6 35 Los Alamos Ave. 

Livermore, CA 94550 

WANTED ARCADE unit. please send details and asking price to Michael 
Oogel, PSC #2 Box 11466, APO S. F. CA 36367 

For Sale Bally Arcade. Comes with 6 controllers, Basic, Audio Interface, 
and the following uideocades: 2001,2002,2003,2004,2005,2003,2010, 

3001,3002,3005, 4001,4002, 5001,5002. Also comes with service manual, 

Volumes 1 & 2 of the ARCADIAN and Cursor and partial Three for both. 

Machine is a little over two years old and never had a problem. $350 or 
best offer. Duane Olexa, P.O.Box 212, Neffs, OH, 43340 614-676-3373 

Bally Booster T Shirts. Airbrushed in full color $8 pius $1 post, and 
handling. Send sizes and check to Don Gladden, 53400 Nine Mile Rd., South 
Lyon, MI 48178 Custom shirts also done - call for prices 313-437-3384 

For Sale Bally Arcade with 2 hand controllers, Basic, Tape Interface, 
BasebalI, Blackjack, Seawolf, Panzer Attack, Letter Match, Elementary Math, 
Professional Keyboard -(needs interface, with, schematics, paid $70.) Any 
reasonable offer accepted. Bally works ok. Wm. Bender 806-403 Saratoga 
Ave., San Jose, CA 35123 
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Robert Fabris, Zapped 
3626 Morrie Dr. 

San Jose, CA 95127-9990 




NEW UIDEOGADE SCHEDULE These- three Uideocades are now available 
at outlets: #2011 Galactic Invasion; #2014 Grand Prix/Demoi it ion Derby; 
#4004 Biorythm. We should see Space Fortress and Pirate's Chase in 
October, and then Music Maker 1 in November. Then Bowling, Pac-Man, Wizard 
of Wor, and Coloring Book are due in January. Others in work include Zap, 
Checkers and Chess. The names of those that are full-size arcade games 
wil I change a I ittle bit to provide some differentiation. 


The new flstroUision Basic should be out by the time you receive this. 
If you have difficulty in purchasing any of the above cartridges from your 
.local sales outlet, drop me a line with a S30 deposit for each cartridge 
desired. 

RESUBSCRIPTIONS This is the last issue of the year, and so a 

subscription renewal is necessary. 

^ The rate is again S12.50 for the full year, Uolume IU. . 

RETROSPECTION The current volume, of 130 pages, surpasses a I I of our 
previous efforts, resulting in a per page cost of 3 cents. • We mechanised 
a cSnsiderabIe portion of the production, so that only a minimal amount of 
hand labor is necessary, to get the Newsletter out to you. e We had a booth 
at the West Coast Computer Fa ire and met a lot of subscribers, and added a 
goodly number to our rolls - as well as giving a Iarge number of urchins a 
chance to play the Galaxian cartridge. '« We started the S100 per issue, 
contest for the best program of the month, and have made four disbursements 
to date. Initially agreed to be funded by Dan Dawson of ArtroUision, these' 
payments have so far been totally funded by the ARCADIAN.*10 the area of 
Subscriber-operations, the Blue Ram memory addition was produced to allow 
subscribers greater scope for their programs. «New hardware was announced 
and deliveries started on the Uiper memory addition system. • The Blue Ram 
memory addition people are providing an EPROM-burning service, and the new 
Extended Basic is available in both ROM and tape versions.*At least two 
people are working on programs to be available on PROMs for our enjoyment. 

•And Dick Belton is making the Bally self-check system (BALCHECK) available. 
So there have been a number of third-party activities to make this year 
better than last.’ 


SATISFACTION One of the more pleasant aspects of producing this 
Newsletter is experiencing the expansion of our capabiIities. We are all 
learning together, and this education is one of the major reasons for the 
ARCADIAN. The item that brings this to the forefront at the moment is Bob 
Weber's character making program. Back on page 83, Rich Tietjens showed us 
how to create a graphic character by manually calculating the inputs to his 
GRAPHIC CHARACTER MAKER program. Bob Hensel, in his TELLING TIME program 
an p.114 used the technique to create his bird character - and now the 
evolutionary processes used by our subscribers has provided us all with the 
technique that allows the computer to do all the work. And we all benefit. 


CONTEST ENTRANTS this month are: MATCH by Ed Groebe and REBOUND 
Dave Martin. The retiring judge this time is George Moses. 


by 
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2 . MRTCH * * , •• 

5 . ED G 

10 CLERR ;BC=56;FC=55 - 

14 CY=0;CX=-30;PRINT “M R T C H" 

15 FOR C=1T0 500;NEXT C;CLERR 

20 CY=0;PRINT " TRY TO MRTCH”;PRINT ;PRINT “ PRIRS OF NUMBERS !* 

30 PRINT SPRINT ;PRINT “ KEY IN LETTERSPRINT SPRINT ’ FOR YOUR GUESS 

ES ! * 

32 PRINT SPRINT SPRINT - 1 OR 2 PLRYERS 7* 

34 P=KP 

37 IF P >50GOTO 34 

38 IF P< 48G0T0 34 


39 CX=0;TU=P;G=P-48 

40 PRINT 

G0 K=0;J=0;S=0;T=0;CLERR 
80 CY=0;CX=-15SPRINT “WRIT »“ 

100 FOR Z=0TO 85;@(Z)=0;NEXT Z 

130 U=RND (10 ) -1 

150 IF @CU)=lGOTO 130 

160 @(U)=1;GOTO 170 

170 FOR Z=1T0 2 

175 W=RND (20) 

180 IF @(64+W ) >0GOTO 175 
185 @(64+W)=U 
190 NEXT Z 

192 FOR Z=0TO 9;IF @CZ)=0GOTO 130 

196 NEXT Z;CLERR 

200 X=-60;Y=30;Z=G4 

210 FOR Y=30TO -30STEP -20 

220 FOR X=-B0TO 60STEP 30 

230 Z=Z+1;CX=X;CY=Y;TO=Z 

250 BOX X,Y,20,18,3 

280 NEXT X S NEXT Y 

300 FOR P=1T0 Q 

302 CY=0;CX=75SPRINT #0,P 

305 R=0 

310 IF P=1T=T+1;BC=8;FC=7 

311 IF P=2S=S+1;BC=80; FC=7 
320 W=KP 

325 IF W<65G0T0 320 
328 IF W>84G0T0 320 
327 IF @(W)=10GOTO 320 
330 GOSUB 400+W 
340 R=20 
350 U=KP 

355 IF U< 65G0T0 350 

356 IF O >84G0T0 350 

357 IF U=WGOTO 350 

358 IF @(O)=10GOTO 350 
360 GOSUB 400+U 

370 GOTO 600 

465 X=-60;Y=30;GOTO 490 

466 X=-30;Y=30;GOTO 490 

467 X=0;Y=30;GOTO 490 

468 X=30;Y=30;GOTO 490 

469 X=60;Y=30;GOTO 490 

470 X=-60;Y=10;GOTO 490 

471 X=*-30; Y=10; GOTO 490 


The object of this board game, for either 
one or two players. Is to select the 
pairs of cards (A to T) which have match¬ 
ing numbers (0 to 9). As letter guesses 
are entered on the key-pad the cards are 
"turned over" to reveal the numbers. If 
a match is made the two cards are removed 
from the board and the player tries two 
more cards. If a match Is not made the 
cards are turned down again. 

If there are two players, they take turns 
guessing two cards at a time. At the end 
of the game the number of pairs matched 
for each player is shown. If there is 
just one player the number of tries need¬ 
ed to complete all 10 matches is shown at 
the end. The challenge is to have as few 
tries as possible—10 would be a perfect 
score. 


Both the color and a number of the right 
of the screen indicate which player 
should enter a letter (blue is #1, red Is 
#2). A short instruction at the begin¬ 
ning explains what to do. 


Ed Groebe 

12046 Flambeau Drive 
Palos Hills, IL 60463 
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472 X=0;Y=10;GOTO 490 

473 X=30;Y=10;GOTO 490 

474 X=60;Y=10;GOTO 490 

475 X=-60;Y=-10;GOTO 490 

476 X=-30;Y=-10;GOTO 490 

477 X=0;Y=-10;GOTO 490 

478 X=30; Y=-10; GOTO .490 

479 X=60;Y=-10;GOTO 490 

480 X=-60;Y=-30;GOTO 490 

481 X=-30;Y=-30;GOTO 490 

482 X=0;Y=-30;GOTO 490 

483 X=30;Y=-30;GOTO 490 

484 X=60;Y=-30;GOTO 490 
490 GOTO 500+6 

500 BOX X,Y,18,16,2 

510 CX=X;CY=Y;PRINT #0,@(W) 

517 RETURN 

520 BOX X,Y,18,16,2 

525 CX=X;CY=Y;PRINT #0,@CU) 

540 RETURN 

600 IF @(W)=@CU)GOTO 700 
620 IF @CW)#@CU)GOTO 800 
700 @(W)=10;@(U)=10 

710 IF P=1 K=K+1 

711 IF P=2 J=J+1 

720 IF K+J=10GOTO 900 


730 6=450 

740 GOSUB 400+W 

750 G05UB 400+U 

790 GOTO 305 

800 6=350 

820 GOSUB 400+W 

825 6=360 

830 GOSUB 400+U 

835 NEXT P 

840 GOTO 300 

850 BOX X,Y,20,18,2 

855 CX=X;CY=Y;TU=W;GOTO 880 

860 BOX X,Y,20,18,2 

865 CX=X;CY=Y;TU=U 

880 BOX X,Y,20,18,3;RETURN 

900 CLE6R 

920 CY=0;CX=-24 

930 PRINT " G6ME OUER“ 

931 IF Q=2G0T0 970 

935 PRINT ;PRINT ;PRINT " 

940 GOTO 15 

950 BOX X,Y,20,20,2 

960 RETURN 

970 PRINT ;PRINT ;PRINT * #1 

980 PRINT " *2 “,J 

990 GOTO 15 


" , T, " TRYS ! ” 


M6TCHED",K 
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- <RRCF)DIRNK 'r' 

1 . REBOUND * * * 

2 . BY DflUE MARTIN * 

10 H=0;S=0;G=20;E=75;F=35;M=1000;R=100;N=10;GOTO 180 
20 L=(K#2 )b127;&C 2 )=L;&(3)=L;L=118+(K=2);BC=L;&C 0 >=L;&(1)=L;FC=0;X=5;Y=5 
30 CLEAR ;&(3 )=212;FOR D=25T0 -25STEP -N;FOR C=-G5T0 65STEP N 

35 BOX C,D,3,3,1;BOX C,D,5,1,1;BOX C,D,1,5,1;NEXT C;NEXT D 
40 NT=5;A=RND (3 )b5-N;B=RND (3)b5-N;IF A=0IF B=0GOTO 40 

50 CY=40;CX=»-F; PRINT */'N/'GET READY\/\" ; FOR Z=0TO 800; NEXT Z;BOX 0,40,160,8,2; I 
F KGOSUB 250 

60 BOX X, Y, 5,5,1;FOR T=-84T0 30bM;X=X+A;Y=Y+B;IF CABSCX)=E) + (RBSCY)=F)GOTO R 
70 P=P+PX(X,Y+2);FOR Z=0TO W;IF X=IIF Y=JGOTO 280 
80 IF P=845=5+MbCK+l )+8400-Tc2b5;GOTO 140 

90 NEXT Z;BOX X,Y,5,5,3;BOX X-A,Y-B,5,5,2;NEXT T;GOTO 130 
100 BOX X,Y,5,5,3;BOX X-A,Y-B,5,5,3;IF ABS(X)=E A=-Xcl5;B=JYC1)b5 
110 IF ABSC Y)=F B=-Yc7;A=JXCl)b5;IF ABSCX)=EGOTO 300 
120 MU=E; T=T-1’; NEXT T 

130 &( 22) = 111;FOR Z=30TO 150;&<17)=Z;&C18)=Z+13;NEXT Z;&( 22 >=0;&C 17 )=0;&C 18 )=0; 
S=S+PbR-(84-ABSC T))c2b5;GOTO 180 

140 CLEAR ;&(9)=50;BC=161;FC=134;CY=8;NT=3;PRINT #15,CK+l)bM;CX=-35;PRINT ’++ B 
ONUS! ++ 

150 IF K<2CX=-F;PRINT "SCORE:“,#6,S 

180 &(21)=15;FOR Z=1T0 25;FOR Q=15T0 G;&C19 )=Q;NEXT Q;NEXT Z;&C21)=0;&C19 )=0 
170 IF K<2K=K+1;P=1;GOTO G 

180 CLEAR ;&(9 )=50;BC=0;FC=0;NT=0;PRINT ‘ YOUR SCORE HIGH SCORE 

190 PRINT ' ----------- 

200 IF S >H H=S 

210 PRINT #8,S,#14,H;CY=0;PRINT "BALL SPEED-a 

220 CY=-14;CX=-36;PRINT "R U";CX=-24;PRINT "E 0 N";CX=-12;PRINT "B 

D";CY=-39 

225 PRINT " - THE MAD PROGRAMMER",;BC=9;FC=7;CY=0 

230 BOX 0, -39,126,9,3;W=&C28)c50;CX=0;PRINT #2,W,;IF TRC 1 )K=0;S=*0;P=1; 1=1; J=UG 
OTO G 

240 GOTO 230 

250 I=RND (13 )bN-E; J=RND C 6 )bN-F; IF C I=5J+C J=5 )GOTO 250 W 

260 IF CI=J)+(I+J=10)GOTO 250 Dage Martin 

265 IF K*2B0X I>J,3,1,2;BOX I,J,1,3,2 ’ 340 q B raddock Street. 

270 FOR U=1T0 16;BOX I,J,5,5,3;MU=R;NEXT U;RETURN Kettering, OH 45420 

280 IF P#84G0T0 130 ’ r 

290 S=S+MbCK+l )+8400-Tc5b5;GOTO 140 

300 CY=36;NT=0;&(9)=-l;BC=142;PRINT "BALL IS STUCK IN CORNERM";GOTO 130 

REBOUND is a game of skill for one player. Turn knob to select ball 
speed (O-fast 5-very slow) and pull trigger. You try to clear as 

many diamonds as possible off the board using a ball that may only 

be controlled as it bounces off the wall. Use joystick when ball 
approaches a wall to tell it to bounce (45 degrees) on the right, 
left, up, or down. You must hold joystick position until after ball 
has bounced off the wall. 

If you clear the board, you are challenged to clear a second and 
third board. On the second board, one diamond is marked and will 
flash before you begin. If you do not erase this one last . the 
game is over. On the third board, one diamond will flash, but is 
not marked. You must remember this one to erase it last! 

A couple more catches : points are deducted for crossing a path 
you have already travelled, and finally, you cannot bounce into a 
corner, or the game ends. 
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2 . 

3 . 

4 . GOBBLERS 

5 . BY BOB WISEMAN 
10 GOTO 900 



100 C=28-C @(P-1)-6)c10b15;R=RMb15-72;RETURN 
110 FOR P=1T0 2;GOSUB 100;W=@CP-1);U=@(W);@CW)=0;IF 
U;MU=87;NEXT X 

113 IF U L=L-1;IF L=0GOTO 1000 

115 BOX R,C, 15,15,1;NEXT P 

120 CX=Z;NT=0;PRINT @C2),@C3)," *,;NT=2 

125 FOR P=1T0 2 

130 B=JX(P);IF BGOTO 150 


0@(P+1)=@(P+1)+U;F0R X=1T0 


140 B=-10bJY(P) 

150 @(p+3)=B;IF BGOSUB 100;X=Bc5;Y=RMb2;BOX R+Y,C-X,13-XbX,13-YbY,2 
1S0 NEXT P;FOR P=1T0 2;GOSUB 100;B=@(P+3) 

170 IF BGOSUB 100;GOSUB 300;GOSUB 100;GOSUB 400 
180 NEXT P;M=M+1 
200 GOTO 110 

300 BOX R,C,15,15,2;IF B=0RETURN 
305 X=P-1;A=B+@(X);IF (A<6)+(R>55)A=@( X) 

320 IF @C2-P)=A ft=@CX) 

330 @(X)=ft;RETURN 

400 IF B#10BOX R,C-G,15,3,1 v 

405 IF B#-10BOX R,C+G,15,3,1 
410 IF B#-10BOX R,C-G,15,3,1 
420 IF B#1B0X R+G,C,3,15,1 
430 IF B#-1BOX R-G,C,3,15,1 
440 RETURN 

800 BOX R,C,7,7,1;BOX R-1,C+2,2,2,2;D=@Cft);IF D>1B0X R+2,C-1,2,2, 

810 IF D>2B0X R+2,C+2, Z, 2,2 

820 IF D=4B0X R-l,C-l,2,2,2 

825 MU=Db15 

830 RETURN 

900 CLEAR ;&(10 )=16;CY=40;Z=-60;CX=Z;P=1 
905 L=50;PRINT “ONE MOMENT PLEASE", 

910 FOR A=6T0 55;@(A)=RND (4);@(0)=A;GOSUB 100;GOSUB 800;NEXT A 
920 @C0)=28;@(1)=33;@C2)=0;@C3)=0;CX=Z 
930 PRINT "GET READY — SET!", 

940 FOR X=16T0 176;&C10 )=X;FOR Y=1T0 4;NEXT Y;NEXT X 
950 CX=Z;PRINT "GO!! GO!! GO!!", 

990 GOTO 110 

1000 CX=Z;PRINT "STOP!! STOP!! ", 

1005 CX=Z 

1010 IF @<2)=@(3)PRINT "THIS GAME IS DRAWN",;STOP 
1020 IF @(2)>@< 3)PRINT “PLAYER ONE WINS', 

1030 IF @(2)<@(3)PRINT ‘PLAYER TWO WINS”, 

1040 STOP 

1060 PRINT ABS( @(2)-@(3)), ; STOP 


Bob Wiseman 
118 St. Andrews 
Cineinnati, OH 


Drive 

45245 


THIS IS A TWO PLAYER GAME PLAYED ON A TEN EY FIVE FIELD. 

THE OBJECT OF THE GAME IS TO HAVE YOUR GOBBLER GOBBLE UP MORE 
SQUARES THAN YOU OPPONENT. WHEN PLAY BEGINS, USE THE JX AND JY 
TO DIRECT YOUR GOBBLER AROUND THE SCREEN. EACH PRINTED SQUARE 
IS WORTH ONE, TWO, THREE, OR FOUR POINTS DEPENDING UPON HCW MANY 
DOTS ARE THERE. THE GAME ENDS WHEN THE LAST SQUARE IS EATEN. 


(2. S’ 
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-11;CY=6;PRINT "HAPPY";CX=-25;CY=-6;PRINT "HALLOW 


1 .BOO 

10 CLEAR ;FC=133;BC=0;H=1;CX : 

EEN!";GOSUB 70;GOTO 200 
15 U=3;G=0;RETURN 

20 LINE 0, Yb40, 4; LINE Xb2,Yb40,1; LINE Xb4, Yb38, 1; LINE Xb6, Yb35,1; LINE Xb8 Yb31 
!,1;LINE XbS,Yb2G,1 

21 LINE Xbl0,Yb20,1;LINE Xc5b53,Yb10,1;LINE Xb11,0,1;RETURN 
30 LINE X,Y,4;LINE X-10,Y-20,3;LINE X+10,Y-20,3;LINE X,Y,3;RETURN 
40 FOR T=1T0 Nb111;NEXT T;RETURN 
4G BOX 0,-8,9,15,3;RETURN 

50 NT=20;MU=62;BOX -25,1G,23,21,1;MU=59;NT=3;GOSUB 40;LINE -35,5,4;LINE -25 25 
,3;LINE -15,5,3;GOSUB 40;RETURN 

60 LINE 0,-17,4;LINE Xb3,-15,3;LINE Xb5,-13,3;LINE Xb8,-11,3;LINE Xb5,-2G 3;LI 
NE Xb3,-28,3;LINE 0,-30,3;RETURN 

70 NT=150;FOR N=0TO 3;MU=@(N);NEXT N;NT=0;RETURN 
80 LINE 0,40,4;LINE Xb3,38,1;LINE XbG,35,1;LINE XbS,25,1;LINE Xb9,15 1;LINE Xb 
9,5,1;LINE Xb8,-5,1 

82 LINE XbG,-15,1;LINE XbS,-15,1;LINE Xb5,-30,1;LINE Xb4,-35,1;LINE Xb3 -40 1; 
LINE 0,-42,1;RETURN ’ 

85 U=3;FOR N=-4GT0 4G;Q=Nc4;IF RM=0GOSUB 100 
8G LINE N,6,4;LINE 0,43,1;NEXT N;RETURN 

87 FOR X=-1T0 1STEP 2;BOX XblS,9,13,15,3;NEXT X;GOSUB 4G;B0X 0,-25,35,13,3 

88 FOR X=-14T0 14STEP 7;FOR Y=-28T0 -22STEP G;BOX X,Y,5,5,3;NEXT Y;NEXT X;RETU 


-54+ZT0 0;FOR Y=ATO 43;IF PXCX.Y) A=Y;GOTO 94 


Y;NEXT X;LINE -7,40,4; 


RN 

90 GOSUB 15;A=Z;B=Z;FOR X= 

92 NEXT Y 

94 FOR Y=BTO -43STEP -1;IF PXCX,Y ) B=Y;GOTO 97 
9G NEXT Y 

97 Q=Q+1;IF Q=2 Q=0;GOSUB 100 

98 LINE X,A,4;LINE X,B,H;LINE -X,A,4;LINE -X,B,H;IF H=2RETURN 

99 NEXT X;NT=0;RETURN 
100 U=0+1;IF U>11 0=4 
105 NT=20;MU=@(U);NT=0;RETURN 

200 FOR X=-5T0 5STEP 10;FOR Y=-1T0 1STEP 2;GOSUB 20;NEXT 
LINE 0,43,1;LINE 14,43,1;LINE 0,40,1;Z=0;GOSUB 90 
300 FOR G=1T0 G;N=3;GOSUB 40;GOSUB 100;NEXT G 
S00 Y=25;X=-Y;GOSUB 30;X=Y;GOSUB 30;Y=10;X=0;GOSUB 30;X=5;GOSUB 60;X=-5;GOSUB 6 
0;N=5;GOSUB 40;GOSUB 50;GOSUB 50;GOSUB 50 
G00 GOSUB 70;BOX 0,-21,82,21,1;FOR N=0TO 2STEP 2;B0X 0,-25,17-N 15-N 3;NEXT N 
GG0 N=25;GOSUB 40 ’ 

700 CLEAR ;FC=11;GOSUB 85;BOX 0,-18,93,51,1;BOX 25,25,9,25,1;GOSUB 87;BOX 34 -3 
,15,25,3;BOX 30,-33,2,2, 3;BOX -34,-26,15,11,3 

740 BOX 0 , 0 , 149,87,3;N=5;GOSUB 40;H=2;GOSUB 15;F0R X=-75T0 -27;A=43;B=-A;GOSUB 
97;NEXT X;B=23 

752 GOSUB 15;FOR X=-26T0 0;B=23;GOSUB 97;NEXT X 

7G0 X=5;GOSUB 80;X=-5;GOSUB 80;N=2;NT=20;FOR G=1T0 10;FC=RND (25G);MU=83;MU=82; 
GOSUB 40;NEXT G;NT=0;FC=92;H=1 

1000 Z=10;GOSUB 90;FC=7;BC=0;GOSUB 87;CY=-40;CX=-70;PRINT "TRICK... 

=9;GOSUB 40;FC=155;BOX 0,24,151,39,2 
1200 CX=27;PRINT “OR TREAT!",;LINE -G0,6,4;LINE 60,6,1;GOSUB 85;GOSUB 46;LINE 0 
4,4;LINE -7,-10,2;LINE -4,-15,2 

1300 BOX -7,-22,5,5,2;FOR N=-44T0 -20STEP 4;LINE N,0,4;LINE N-10,-35,1;GOSUB 100 
;LINE -N,0,4;LINE 10-N,-35,1;GOSUB 100;NEXT N 

1310 , F0R N=1T0 USGOSUB 100;NEXT N;NT=200;MU=56;NT=0;N=20;GOSUB 40;GOTO 10 


;GOSUB 70;N 
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Steve Walters 

556 Langfield Drive 

Northville, MI 48167 
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1 * 

The following instructions apply for ease in tape-loading this 

program: 

Rfter th e program is entered, enter the following: 

10 TU=0; TU=2 ” ~ 

20 PRINT “&( 20 )=130 

30 PRINT “@(0)=60;@(1 )= 59 ; @( 2 )=68; @( 3 )=67; @( 4 )=56; @( 5 )= 59 ; @( S )=63; @( 7 )=68; @( 8 ) 
=64; @( 9 )=61 ; @( 10 )=G3; @( 11 )=59 
40 PRINT -:RETURN ;RUN 

Then turn the tape recorder on for recording and press GO. When the 
program has printed and “:RETURN;:INPUT 2“ appears on the screen, turn 
the tape recorder off but do not rewind the tape. 

Then clear the memory (ERASE) and enter the following program: 

10 :PRINT ;PRINT “.HALLOWE'EN GRAPHICS“;PRINt “.BY S. WALTERS 10/11/80“;PRIN 
T;LIST ;PRINT ;PRINT “.STANDBY FOR“;PRINT ":RETURN ;:INPUT 2 
Then enter the following: :PRINT; RUN (without GO) 

Now turn the tape recorder on for recording and press GO. When alI the 
data has been printed, turn the tape recorder off and rewind it. The tape 
is now ready to load ^ith :INPUT and run automaticaI Iy. when loaded. 


WHERE's theAdd-Under? Well, I understand that the specifications 
have finally been settled upon - apparent Iy everything up to now has been 
on a sort of 'what if' on 'would you I ike' or 'suppose we added' basis. 
The board layout is underway right now, and the most recent Iist of 
“goodies* remains at 16K RAM, 32K ROM, the UOTRAX speech chip, Z-GRASS, of 
course, and expansion capability to disc. At this point, I think they will 
have to work hard to get a real prototype ready for the Spring Consumer 
Electronic Show. I expect I' Ii be there to see what' s what. 

ARCADIAN PROGRAMS ON TAPE, mentioned on p. 101, are becoming a 
reality. As part of the advertising campaign to-got more subscribers, we 
are informing purchasers of the new ARCADE PLUS that they can receive a' 
“Sampler* tape of ARCADIAN programs. This sampler is on the 2000 baud 
format usable by the new machine, and contains 10 programs of various types 
(graphics and games). Each of the 10 authors of the programs on the tape 
receive a royalty on each purchase. 

We are also working on a set of taped programs, to falI under the 
general title of “Best of ARCADIAN, 198x", each of which will contain a 
selection of the most popular of a particular Uolume of the ARCADIAN. We 
f are now busy "transI ating“ the programs to the 2000 baud format, and will 
make these also available to purchasers of the ARCADE PLUS, as well as to 
purchasers of the AstraUision Basic cartridge itself. Again, the authors 
will receive a royalty for their programs. 

EXTENDED BASIC, as produced by Perkins Engineering, is called "Blue, 
Ram Basic*, .and will sell for $4:9.95. The purchaser wil l ...receive a, 
cartridge that slips into the game slot and can access the Blue Ram memory. 
We will .start to have some programs for this system in one or two issues. 
The programs themselves should be able to work on the Uiper System as well, 
with possibly some trivial changes - we have to try them out to be more 
definitive. We strove to maintain compatibility, but there is always one 
or two little things that need changing. The AstroUision and Bally Basics 
are similarly compatible - and their programs need minor changes. 
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10 : RETURN ;CLEAR 

„ f 0 ,^ v ? = ~ 70TO G5STEP 8;B0X X, 0,1,72,1; next X; FOR Y=-3GT0 3GSTEP 8; BOX -G.Y.12 

□ , 1 , 1 J Fit. a i Y 

25 R=-GG;B=-32 
30 BOX A, B,7,7,3 

40 BOX A, B, 7,7,3;fl=R+JX(1 )b8; IF R>G5fl=G2 
50 IF R<-70R=-GG 
G0 B=B+JY(1)b8;IF B>3GB=32 
G5 IF TR(1 )IF fl>60GOTO 200 
70 IF B<-36B=-32 

80 BOX R f B, 7,7,3; IF TRCDIF KNCD>0BOX fl, B, 7,7,1; GOTO 80 
80 IF TRCDIF KNC1X0BOX fl, B, 7,7, 2; GOTO 30 
100 GOTO 40 

200 A = 128;B=0;C=0;FOR Y=32T0 -32STEP -8;FOR X=-GGTO -10STEP 8;IF PXCX Y)B=B+A 
R-Rc 2;NEXT X;GOSUB 500;fl=128;E=0;FOR X=-2T0 54STEP 8;IF PXCX,Y)B=B+A 
220 R-Rc2;NEXT X;GOSUB 500;fl=128;B=0;NEXT Y;GQTO 1030 
500 @CC)=B;C=C+1;RETURN 
1020 Y)=U;Y=Y+W;RETURN 

1030 CLEAR ;NT=1;X=0;Y=20200;R=Y;W=2;2=1020 

1100 U=- 43; GOSUB Z; 0=6865; GOSUB Z Bob Weber 

1110 0=10240; GOSUB Z; 0=20210; GOSUB Z 6584 Suiartout Rd 

1120 0=-13871;GOSUB Z;0=-1336;GOSUB Z Rlgonac, NI 48001 

1130 0—32630; GOSUB Z; 0=12288; GOSUB Z 4 „ 

1140 0=2432;GOSUB Z;0=527;GOSUB Z 
1150 0=-247;GOSUB Z;0=78;GOSUB Z 

PUTS!-7l1i” YW ' F ° R S ‘ 0T ° CSTE:P 2!IF •CS-X).0CY-40 i PRINT "DOES NOT CO f 

1170 0=@<S);GOSUB Z;0=@CS+l};GOSUB Z;NEXT S 
1130 20203)=10320; CALLR 

1200 IF L=1L=0;GOTO 2000 

1210 CY=0;PRINT "OK?";IF KP#13PRINT "COMPUTING!*;GOTO 2000 
1220 CLEAR PRINT ;NT=0;TO=0;TO=1;FOR X=RTO YSTEP 2 
1240 PRINT #1 X, “)=*, X ) 

1250 NEXT X;PRINT *:RETURN ;RUN 
1260 :RETURN ;STOP 

ZeO^FOR Z-1T0 144;®<Z)-0;NEXT Z;fi-0iFOR Y--5T0 3;F0R X-0TO ISifi-HH-UIF PxtX.Y)® 


Bob Weber 
6534 Swartout Rd 
Rlgonac, MI 48001 


CS)=128IF @CS-1)=0CY=40;PRINT "DOES NOT « 


2010 NEXT X;NEXT Y;A=0;CLEAR ;FOR Y=-32T0 32STEP 8;FOR X=-6GT0 
@(A)BOX X,Y,7,7,1 
2020 NEXT X;NEXT Y;GOTO 20 


54STEP 8;A=A+1;IF 


Load the program and RUN it. The program will draw a 3 x 16 grid on 
the screen, and there will be a flashing cursor in the bottom left hand 
corner. Move the cursor with the joystick, and when you have it located, 
turn the knob to the right and press the trigger. This will blacken in a 
square. If you want to 'erase', turn the knob to the left and press the 
trigger. When you are satisfied with the character, move the cursor to the 
right side of the screen and p re ss the trigger. The machine will now 
compute the values and load them into a string. When it is finished, it 
will display the character in actual size on the screem and ask 'OK?'. If 
everything is the way you want it, prepare the tape you are going to use. 
and press GO. If it is not the way you want it, press any key other than 
GOy and you wilI be back in the character construction mode. 

If the computer says 'DOES NOT COMPUTE' , it means you have a single 
pixel placed in the left hand corner of either the left or right half of 
the drawing. When you do this you cannot load the values onto tape, 







SIG BALLV in Chicago is reforming after a long 
summer vacation. For more information call Hank 
Chiupp i 512—55 7-60/9. New me mbers welcome. 

ENTREPRENEURS ma y be interested in a new Newsletter devoted to the 
kitchen-table programmer, etc., who wants to use a microcomputer in 
business, or make a business out of his computer. Entitled MICRO 
MOONLIGHTER NEWSLETTER, it is supposed to talk about methods of operation, 
tax shelters, mail order, advertising, etc., all geared to the small 
operator. Inquire of J.Norman Goode, 2115 Bernard five., Nashville, TN. 
37312.. 

DUNGEONS fiND DRAGONS Game Aid'Package - now with more programs, including 
player character generator. *10. ppd Rich Tietjens PSC Box 542, APO 
miami, FL 34004 

I've had a number of telephone calls from people looking for Fred Cornett. 
The best available data I have locates him at 711 Pineknot, Big Bear Lake 
CA 32315 714-866.-5826 

Southern California dealer - Randy's TV P.O.Box 1109 El Centro CA 922kk 
has many old Bally videocades on 3ale, with a good deal of BASIC. Also in 
stock - Galactic Invasion, Space Invaders, Grand Prix 

SUBSCRIPTION 12.50 
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